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MAPS - A COMPUTERIZED MANAGEMENT ANALYSIS AND PLANNING SYSTEM 


by Donald R. Packe and Gil A. Raffaeli 
Lewis Research Center 

SUMMARY 

MAPS provides managers of large technical projects with a fast and economical in- 
formation system for planning and controlling their projects. The program is written in 
FORTRAN IV language and is currently being run on an IBM 7094 computer. Input in- 
formation on schedules and status is simultaneously submitted at all project levels and 
is automatically collated by the program, resulting in an easy -to -understand output. 

Many optional features allow the operator to tailor the program output to local pref- 
erences. Legends are completely arbitrary as are schedule calendar formats. Special 
line items may be selected to print out only on limited listings. Key information may be 
automatically summarized. Excerpted listings of responsibilities by individuals or or- 
ganizational segments may be generated. 

The program is versatile and can be used for other listings such as parts lists, rec- 
ords of test hours, glossaries, engineering work-order records, etc. The program 
data can be effectively managed with one part-time operator. An annotated listing of the 
computer program is included as an appendix. 


INTRODUCTION 

MAPS, a computerized Management Analysis and Planning System was developed at 
the NASA Lewis Research Center to provide project managers of large technical proj- 
ects with a fast and economical information system for planning and controlling their 
projects. The program was developed after finding that the planning, scheduling, and 
status updating by the use of other systems on a Lewis project were cumbersome and 
time consuming, especially when handling large quantities of information. The MAPS 



program was specifically designed to be a management tool which could readily commu- 
nicate with all project levels, which would be a ready reference of up-to-date project 
information, and which would require a minimum of manpower for its maintenance. 

The MAPS program is in essence a computerized bar- chart schedule reporting sys- 
tem in which the work structure of a project can be listed at all levels. This system in- 
tegrates an item of work, its schedule, its status against the schedule, the responsible 
individual, and brief explanatory comments about the item. In addition, the relation of 
any single item to other items in the project is clearly shown by a hierarchy form of pro- 
gram organization. The structure of the MAPS program promotes a natural organiza- 
tion of all project work elements and can be used to control down to any level of detail 
desired. 

A key feature of the MAPS program is that each project work element can be keyed 
to a responsible individual. This is true at all levels of the work structure. The pro- 
gram can give each individual a condensed listing on an item-by-item basis of the project 
work elements in his area of the project; thus, each individual can see exactly what his 
project role is and what schedule demands he is working against. This listing is also 
helpful to management in reviewing manpower requirements and loading. 

Another key feature is that the MAPS system is written for fast updating. Thus, 
management review can always be conducted with up-to-date information. The program 
has been found most effective when used in conjunction with a biweekly (every 2 weeks) 
management review meeting. In the meeting the printouts serve as both information and 
as a format from which to conduct the meeting. In the printouts, all new or updated in- 
formation is identified as a change from the previous plan or schedule which can be used 
by management as an exception reporting system. The information on the progress of 
each project element can be maintained on an exception reporting basis by individuals 
who are responsible for each work element listed. 

Finally, the MAPS program is a resource saving tool. Experience to date has 
shown that the system for a project involving 100 professional personnel can be main- 
tained by an operator utilizing about one-fourth his time. The MAPS program is written 
so that no prior computer experience is required for an operator to effectively implement 
and maintain project computerized outputs. 

In addition to its use in scheduling and review, the program can be used to collate 
and list various types of information. It has been used for drawing lists, parts lists, 
documentation of test data, engineering work orders, and others. 

This report is intended to show the project manager the general utility of this system 
for his application, to provide the operator with complete information on how to effec- 
tively utilize the program including all its optional features, and to provide those who 
wish to install its use in their own computer facility an annotated listing of the FORTRAN 
IV program. 
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DESCRIPTION OF THE PROGRAM AS USED FOR PLANNING AND SCHEDULING 


The MAPS program provides a bar-chart output for project review. The format is 
composed in a form for convenient reading for the user. Figure 1 illustrates a typical 
page of MAPS schedular output which contains five major column headings. Reading 
from left to right a line of output identifies the item scheduled, the planned calendar 
schedule applicable to that item, the status of the item against the planned schedule, a 
comment, and the person directly responsible for the item. 

The organization of the work elements is according to a hierarchal structure. This 
permits an automatic recognition of both the physical organization of the project (e.g. , 
part A is an element of subassembly B, which is in turn an element of subsystem C, 
etc.) as well as the line of responsibility. For convenience each item is assigned an ar- 
bitrary hierarchy number. As ah example of the organization implied by this numbering 
system, item 41D41 BEARING implies that it is an element of item 41D WHEEL (PRI- 
MARY), which in turn is an element of item 41 COMPONENTS. Likewise, it implies 
that LENTZ is responsible for BEARINGS to JOULE, who is in turn responsible for the 
WHEEL (PRIMARY) to NURTZ, who has overall responsibility for COMPONENTS. 

The calendar schedule is centrally located on the page. The user can vary the for- 
mat of the calendar according to his needs. The example shown in this figure has been 
found most useful for regular detailed project review of current status and for near-term 
planning. The format preserves the events of the past 6 -month period summarized by 
month. The present 6-month period and the following 6-month period are shown by 
quarter months (approximate weeks) which has been found to be adequate detail for near- 
term project control. Events of 1 year hence are carried by month to permit some 
longer range perspective on the impact of present status. 

In order to keep the schedular information in a compact form the various activities 
are coded according to the legend printed at the bottom of the page. This allows the 
main flow of activities to be listed on a single line, thereby conserving the physical 
length of the printout . The legend used is arbitrary and may be varied to suit the indi- 
vidual project. In addition to actual calendar schedules, the schedule format area may 
also be used for appropriate messages such as the one shown on item 2 IB. 

As a visual aid to reviewing the schedule status, a cursor line of asterisks is posi- 
tioned in the schedule to show the data of the project schedule review. In figure 1 the 
asterisk cursor is located under the first quarter of December 1970. Status of each 
schedule line is then measured relative to the position of the asterisk cursor. The sta- 
tus of each scheduled line is visually presented by overprinting a diagonal slash mark 
across all completed work. The position of the rightmost slash relative to the asterisk 
cursor is then a visual indication of actual status against planned schedule. 
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To the right of the schedule is the COMMENT column (see fig. 1) which is used to 
report numerically the actual status of the item against the planned schedule. The num- 
ber indicates the columns of slack (in this case interpreted as weeks) plus or minus rel- 
ative to the report review data. A brief six-character comment can accompany the num- 
erical status report. This comment may also carry any other information such as total 
running hours to data, completion dates, etc. 

The rightmost column on the page is the person responsible for the item on that line. 
Identifying each person in this way clearly delineates work areas and responsibilities, 
and can be further used to automatically summarize total work load for any or all indi- 
viduals listed. 


COMPOSITION OF INPUT DATA DECK 

This section describes the preparation of the input data deck in sufficient detail for 
the beginning user to produce a useful schedular output. Additional program options and 
uses are discussed later. It is suggested that the user become thoroughly familiar and 
reasonably proficient with these initial concepts before attempting to use the full comple- 
ment of options. As mentioned earlier, however, the MAPS operator is not required to 
know computer programming and can therefore proceed to use MAPS immediately. 

The program deck comprises five major sections: control and format deck, identi- 
fication deck, schedular deck, status deck, and by-man deck as shown in figure 2. Fig- 
ure 3 shows the areas on the output page where the information from these input cards is 
printed. 

The following is a card-by-card description of the program deck and instructions on 
its use. Illustrative examples are included. Reference to figures 1 to 4 will aid in un- 
derstanding this section. Figure 4 shows a detailed listing of each card that produced 
the printout in figures 1 and 3. Table I is a condensed list of instructions for punching 
each of the input cards. This table will be helpful to the operator after becoming famil- 
iar with the details of this report. In the following sections the card numbers accom- 
panying the card titles correspond to the card numbers in figures 2 and 4 and table I. 


Control and Format Cards 

Program message card (card 1). - This card is used to print a message at the top 
of every page. Beginning with column 1, all 80 spaces of the card can be used to show, 
for example, the title of the program, the latest revision date, and the date of the re- 
view. 
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Control card (card 2) . - The control card is used to select various options within the 
program. The options of immediate interest are described subsequently and additional 
options are discussed later. For ready reference all options are summarized in table I. 

(1) Asterisk cursor in the calendar field - This option positions the asterisk cursor 
in the calendar field to indicate the date of the schedule review meeting. The calendar 
field is 66 columns wide. The desired cursor position is indicated by the column number 
in this field (01 to 66). This number is punched in card columns 1 and 2. If both col- 
umns 1 and 2 are blank the cursor will not be printed. 

(2) Slash overprint indicating completed work - As a visual aid in reviewing prog- 
ress, slashes will normally overprint on the schedule field legend marks indicating com- 
pleted work. As an option, if no slash is desired, a 1 would be punched in card col- 
umn 6. 

(3) New program deck punchout - For the convenience of the program operator, the 
program can automatically punch a new program deck in correct sorted order and purge 
any incorrect or obsolete cards. In normal biweekly update, the operator may use this 
option to call for a new program deck after updating the previous deck. To obtain a new 
deck a 1 should be punched in card column 35. 

Calendar heading cards (cards 3, 4, 5) . - Three cards are used for the calendar 
heading. The first 66 columns on each card are available to compose the format. Nor- 
mally column 1 is not used in order to reserve it for a program feature which will be ex- 
plained later. 

The first card (card 3) is used to specify the annual calendar and to locate the dots 
that separate years. The second card (card 4) is used to specify the monthly calendar, 
with the separating dots spaced semi-annually and matching the yearly separating dots 
on the previous card. The second card also prints at the bottom of the page. The third 
calendar heading card (card 5) produces the remainder of the vertical separating dots, 
which should be matched with those on the previous cards. 

The format of these cards is completely optional with one exception. The character 
used to generate vertical columns may only be a period (.). In some applications of 
MAPS the user may want the calendar heading to be blank. In this case there must be 
three blank heading cards in the deck to maintain the proper card sequence. 

Legend cards (cards 6, 7, 8) . - The MAPS program automatically provides space 
at the bottom of each page of the printout for a two-line legend. Each printed line is 120 
character positions long, and three cards are required to print the two line legend. The 
first card (card 6) using all 80 columns prints in the first 80 spaces of the top line of 
legend. The first 40 columns on the second card (card 7) prints out on the last 40 spaces 
of the top line of legend. The last 40 columns of the second card (card 7) print on the 
first 40 spaces of the bottom line. The third card (card 8) prints out on the last 80 
spaces of the bottom line. 
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The legend characters are entirely optional with one exception: the character used 
to indicate a dormant period of no activity between tw^ other activities must be either a 
dash or blank. The overprint slash which indicates completed work will not overprint 
either a dash or a blank. In general, the symbols period (,), asterisk (*), and zero (0) 
should not be a part of the legend repertoire since they have special program meaning. 
All other symbols may be used. If the legend is not used, three blank cards must be in- 
serted in the deck to maintain the proper card sequence. 


ID Deck Cards 

Identification or **ID'* cards (cards 9) . - The ID cards are used to identify or de- 
scribe the program tasks and the responsible organizations, departments, or personnel. 
An ID card must always have an ”S" in column 1. This is used for card-type recogni- 
tion to minimize inadvertent input errors from appearing in the printout. 

As previously mentioned, each item is assigned a hierarchy number. Columns 3 to 
11 are used for this hierarchy number which must always begin in column 3. The hier- 
archy numbering system is the organizing mechanism used by the program to structure 
the printout. The program provides for up to six levels of hierarchy. The system of 
hierarchy identification is a mixture of two digit numbers and single letters in the se- 
quence number-letter-number- letter-number-letter. The leftmost position (number) is 
the most significant, and the rightmost position (letter) the least significant. The two 
digit numbers range from 00 to 99. The letters cover the 26 letters A to Z. The MAPS 
program will accept more than one ID card with the same hierarchy number; however, 
this feature normally receives only limited use since it confuses the implications of 
hierarchy for the reader. 

A hierarchy number may be assigned at random. The numbers and letters need not 
be assigned consecutively. For example, a program with five major categories might 
select the numbers 08, 21, 37, 63, and 92. An advantage of such a selection is that if a 
sixth major category should be needed at a later date, it can be easily fit into the ex- 
isting numbering sequence by selecting one of the many unused numbers, say 45. This 
same reasoning applies to both alphabetic and numeric selections at all hierarchy levels 
(e.g. , see fig. 1). 

In selecting a hierarchy structure each level of hierarchy must be filled down to the 
least significant level chosen. For example, a hierarchy number such as 41D21J21K 
implies that there must be additional ID cards with the numbers 41D21J21, 41D21J, 
41D21, 41D, and 41. Hierarchy levels may not be skipped. The program automatically 
checks for missing hierarchy levels and prints an error message where the error exists. 
The hierarchy error shown between items 41L and 41P15 in figure 1 indicates that 
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hierarchy number 41P Is missing. Columns 13 to 42 on the ID card are used to print the 
description of the task, end items, function, etc. This field is always 30 characters 
long with the indentation on the printout automatically performed by the program accord- 
ing to the hierarchy level. This 30-column field may contain any key-punch character or 
blanks. 

Card columns 44 to 49 are used to name the person or organization responsible for 
the item described. Although the program will function if these six columns are left 
blank, it is important to the successful use of this program that an individual person (but 
at least an organizational segment) be identified as responsible on each ID card. This is 
important for management in order to pinpoint responsibility. In addition, by using 
these names, a program option (discussed later) automatically extracts a condensed list 
of project work elements in each persons area. Names longer than the six allowed char- 
acter spaces must always be abbreviated in exactly the same way in order to obtain this 
complete condensed listir^. 

The special name, TITLE, is inserted in card columns 44 to 48 to create a major 
title within the output. The lines 

I i i II SyiJ BM 1 1 1 1 1 1 1 

in figure 1 are an example of such a major title. A major title always skips to a new 
page. This special card should be assigned a two digit hierarchy number in the hierar- 
chy number series which then places it in its desired location in the output listing. The 
title desired is punched in columns 13 to 42. 

New or updated ID cards are inserted into the ID deck manually. Replaced or out- 
dated ID cards are removed from the ID deck manually. For ease of locating old ID 
cards, it has been found good practice to always insert ID cards in their proper hierar- 
chy position in the deck. This is not essential, however, since the program contains an 
automatic sorting routine. 

Asterisk card (cards 10, 14, 18, 20) . - Asterisk cards are used to signal the end of 
different segments of the input data deck. These cards simply have an asterisk (*) 
punched in card column 1. The remainder of the card is left blank. Each time the new 
program deck punch option on the control card is utilized, the date on which the deck is 
punched will appear on the asterisk cards (except on card 20) in columns 7 to 25. All 
asterisk cards must be inserted as shown in figure 2 for the program to run even if sec- 
tions beyond the ID deck are not used. 


Schedule Deck Cards 

Schedule cards (cards 11) . - Each schedule card must agree in format with the cal- 
endar heading cards described earlier. Schedule card columns 1 to 66 are used for the 
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legend characters or general messages which will appear in the schedule field. As men- 
tioned, periods (.) on the calendar heading card (card 5) supercede any legend charac- 
ters punched in the same calendar columns. Schedule card columns 70 to 78 must con- 
tain the hierarchy number exactly as it is punched in card columns 3 to 11 on the com- 
panion ID card. Schedule cards may be inserted in any hierarchy order. 

Slash cards (cards 12, 16). - Two slash cards are used in the input data deck, one 
in the schedule deck and the other in the status deck to be discussed next. The function 
of this card is to separate previous schedule or status cards from new or updated cards. 
Like the asterisk card, a slash card has only one character, a slash in column 1. Omis- 
sion of one or both slash cards will not prevent the program from running but the update 
indicator of the cards that follow the slash card will not be printed. 

Schedule update cards (cards 13) . - The schedule update cards are identical in for- 
mat to the schedule cards in the schedule deck. When the user wishes to update or re- 
vise a schedule, he prepares a new card that represents his new schedule, but he retains 
the same hierarchy number as the old schedule. The updated schedule cards are placed 
in the deck immediately following the slash card. Each schedule card when located after 
the slash card will cause an asterisk (*) to print in column 1 of the calendar field, thus 
marking it as a new or changed input. Four of these asterisks may be seen in figure 1 
on items 41D21J21B, 41D21J21K, 41D31, and 41D41. Schedule update cards may be in- 
serted in any hierarchy order. The program automatically uses the last input schedule 
or schedule update card of any given hierarchy number. A schedule update card will 
automatically cause any previous status (slack) as indicated on a status card to be 
blanked out. The output listing will show that the status has been changed and is now re- 
ported as being on schedule. Status reported on status update cards will not be changed. 

The user need not manually remove previous schedule cards. The computer auto- 
matically ignores them and discards them during the punch out of the new deck and the 
printing of the output. 

Asterisk card (card 14). - An asterisk card is located at this position to signal the 
end of the schedule deck. 


Status Deck Cards 

Status cards are used to show schedule status with respect to the planned schedule. 
Status is displayed in two ways, with slashes over completed work (legend characters) 
and/or as a number in the COMMENT column. The status card is also used for making 
a brief comment which appears in the COMMENT column. As a matter of practice it has 
been found advantageous to maintain fixed schedules until the programmatic situation 
changes sufficiently to warrant a change of schedule projection. In this way it is readily 


8 



r 


apparent to a manager when progress is other than planned, thereby allowing his assess- 
ment of its impact on the overall program. The operator should be alert to persons who 
tend to change schedules at each update, rather than reporting status against planned 
schedules. 

Status cards (cards 15) . - No status card is required for items on schedule, that is, 
where present activity is correctly indicated by the asterisk cursor line. With the use of 
the calendar in the example, status can be thought of as weeks of slack (+ or -). The 
program uses the status number (weeks) to count calendar columns right or left from the 
asterisk cursor. This positions the slash overprints to strike out completed work only. 
The slash (/) will not overprint a blank ( ), period (.), dash (-), asterisk (*), or zero (0) 
due to their special format meaning. In counting columns to determine slash overprint 
position from the asterisk cursor, the program does not count any column containing a 
period. This is to allow vertical separator lines through the calendar using periods. 

Status card columns 1 to 9 are used for the hierarchy number. The hierarchy num- 
ber must always begin in column 1 and must be identical to the hierarchy number of the 
companion ID and schedule cards. Columns 15, 16, and 17 are used for schedule status. 
A two digit number is always used (e.g. , 01, 12) preceded by the sign of the number 
(+ or -). Columns 23 to 28 may be used for any cryptic comments relevant to the line 
item. Either the status number (weeks) or the comment may be left blank. Status cards 
may be inserted in any hierarchy order. 

Slash card (card 16). - A slash card is located in the deck at this position to separ- 
ate prior status cards from status update cards. 

Status update cards (cards 17) . - The status update cards are identical in format to 
the status cards. Like the schedule update cards they provide a means of updating status 
without the necessity of manually removing obsolete cards from the deck. It is only nec- 
essary to add an updated status card when there is an actual change in status or comment. 
An activity which was, for example, 5 weeks behind (-05 status) in the last reporting per- 
iod and is still 5 weeks behind during the current reporting period requires no update. 

The status update cards should immediately follow the slash card. Any status card 
located in this position in the deck will cause an asterisk (*) to print in the COMMENT 
column thereby marking the status as new or changed. Two of these asterisks can be 
seen in figure 1 on items 41B and 41D31. Status update cards may be inserted in any 
hierarchy order. The program automatically uses the last inputted status or status up- 
date card of any given hierarchy number. 

Asterisk card (card 18) . - An asterisk card is located at this position to signal the 
end of the status deck. 


9 


I 



By-Man Deck Cards 


By-man cards (cards 19) . - One of the communication features of this program is to 
be able to generate for each individual a listing of his responsibilities and assignments. 
This is accomplished by an automatic search through the program deck for all items 
which show him as being directly responsible, which are his responsibility as implied 
by hierarchy, or which are higher levels of hierarchy to which he is responsible. As an 
example, figure 5 shows a by-man listir^ for BELL. This list is an excerpt from the 
list in figure 1. In figure 5, the hierarchy organization is meant to imply that the RIM 
and FRICTION SURFACE are parts of the RING for which BELL is responsible. In the 
same manner it can also be seen that the RING is a part of the OUTER STRUCTURE 
which is a part of the HOOP which is in turn a part of the WHEEL (PRIMARY) which is a 
COMPONENT of SUN DIAL I. The hierarchy organization is also meant to imply that 
technically, BELL becomes responsible for LENZ’s work as well as his own. In addi- 
tion, BELL must be responsive to EPDERM who must be responsive to SINGER who 
must be responsive to JOULE who must finally be responsive to HOOKE. Thus, work 
elements of both higher and lower hierarchy are listed so that BELL may view his jobs 
and responsibilities in context. 

These listings are obtained by inserting cards in the by-man deck, one card for each 
man. A blank by-man card may be used to obtain a list of all items of unassigned re- 
sponsibility. The use of by-man cards is optional. 

The format of a by-man card is simply the man or organization name punched in 

card columns 8 to 13, and spelled or abbreviated exactly as in the ID deck. 

* 

Asterisk card (card 20) . - An asterisk card is located at this position to signal the 
end of the program deck. 

This concludes the description of a complete program deck sufficient to run a basic 
MAPS listing. The features already described are ample to get a new project organized 
and the regular review process underway. 


WORK SHEET FORMS 

As an aid to the program operator in preparing inputs and updates, a set of work 
sheets have been prepared for the ID, schedule, and status cards. Normally these work 
sheets are filled out by the responsible persons in each area, approved by their imme- 
diate supervisor, and given to the program operator for subsequent updating of the pro- 
gram deck. The work sheets are laid out to correspond directly to the input card column 
requirements. Master copies of these work sheets are located at the end of this report 
following figure 8. These may be photocopied for mass reproduction after filling in 
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specific project information such as project name and calendar headings. 


SPECIAL OUTPUT FOR PROGRAM OPERATOR 

Each time the MAPS program is run, an additional page of information useful to the 
operator is printed as the first page of the listing. An example of such a printout is 
shown in figure 6. The brackets in figure 6 are keyed by letters to the headings in this 
section. The description of this special output follows. 

Control Card ( bracket A) : All program control card inputs are listed for reference. 
Each option is briefly described. 

Error Cards (bracket B) : Cards in error from the ID, schedule, and status decks 
are all listed. An ID card is in error if an S is not punched in column 1. Schedule and 
status cards are in error if no ID card can be located with an identical hierarchy number. 
Any cards appearing under this heading are not listed in the printout and are automati- 
cally purged from the new program deck if it is selected to be punched. 

Flagged ID Cards (bracket C) : This is a list of all flagged ID cards and shows the 
specific flag configuration for each card. Flagged ID cards are discussed later. 

Responsible Person List (bracket D) : This is a complete list of all the individual 
names of responsible persons as read from ID cards. It is useful to detect different 
spellii^s or abbreviations of a given individual, or to select names for by-man listings. 

Valid ID Cards (bracket E) : The MAPS program as written is limited in any single 
program deck to a maximum of 1000 ID cards (line items). This special output gives the 
total number of valid ID cards inputted. ID cards in error are not included in this total. 
If more than 1000 valid ID cards are inadvertently inputted, the program processes the 
first 1000 normally, totally ignores the excess over 1000, and prints an error message 
to warn the operator. 

Hierarchy Errors (bracket F) : The number of hierarchy errors found by the pro- 
gram are listed. The location in the deck of such errors may be quickly found by scan- 
ning the printout for a break in the vertical lines of dots or asterisks. An example is 
shown in figure 1. 


OPERATION ROUTINE 

It has been found convenient to use the following routine in gathering information, 
processing, and distributii^ MAPS to management and individuals. 

Four Working D ays Prior to the Review Meeting ; - All new inputs are due to the 
operator at this time. Inputs are written on specially prepared input work sheets (shown 


11 



following fig. 8). Each individual is responsible to update his own area of responsibility. 

Two Working Days Prior to the Review Meeting: - All inputs are entered into the 
deck. The program is run for a single proof copy. 

One Working Da y Prior to the Review Meeting; - A run is made for multiple copies, 
one copy for each attendee at the review meeting. 

Review Meeting Day ; - The operator attends the review meeting making notes of 
changes, corrections, and decisions which reflect adjustments to the schedules. Follow- 
ing the meeting, the operator incorporates the charges from the meeting and runs by-man 
copies at the same time callii^ for a new program deck to be punched to be used for the 
next update. 

One Working Day Followin g Review Meeting Day: - The operator passes out a by-man 
copy to all individuals with an additional copy of each by-man listing to the individual’s 
supervisor. 

The cycle repeats. A 2- week review cycle has been found to be optimum for a 
project-wide review. 


ADDITIONAL PROGRAM OPTIONS 

This section describes 10 additional program options which may be used individually 
or in any combination. 

1. Running with Multiple Program Decks 

It has been common practice with the writers to include several program decks in 
one program execution in order to disseminate a variety of information in one document. 
An example of a typical run includes (1) an overall project master schedule covering a 
7-year period, (2) the project detailed schedule covering 6 months of history and 18 
months of projection, (3) a glossary of project abbreviation, and (4) a listing of test hours 
on all components. So that this printout is continuous in its reader information, a pro- 
gram feature allows suppression of the special operator information printout between pro- 
gram decks . This is accomplished by punching a 1 in column 37 of the control card of 
the first program deck only. Any ID, schedule, or status card error messages, or hier- 
archy error count will continue to print between program deck listings. This feature is 
normally used only for runs which are for distribution. Proof copy runs are normally 
run with all special operator information printing. Multiple deck setup is shown in fig- 
ure 7. When no by-man cards are used, care should be taken to ensure that there are 
two asterisk cards between the status deck of one program and the first heading card of 
the following program. 
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2. More Than 1000 Cards in ID Deck 

The program is limited by core storage of the NASA Lewis Research Center com- 
puter to a maximum of 1000 ID cards (item lines). Each ID card may, of course, op- 
tionally have a schedule and status card. If it is necessary to utilize more than 1000 ID 
cards (item lines), two or more program decks may be run simultaneously as described 
previously. The printout gives a continuous appearance to the reader. A caution should 
be observed in running in this multiple deck mode. Each program deck is run by the 
computer as a separate entity. There is no cross referencing from program deck to 
program deck. Therefore, a summary output (option 4, described subsequently) will 
only have access to cards in its Immediate program deck. Also by-man listings will 
likewise only have access to cards in the immediate program deck in which the by-man 
request cards are located. 

The control card in the first program deck should be punched with a 1 in column 37. 
This will blank out operator information between decks (except error cards) which will 
make the output appear as one continuous listing. 

3. Selective Printout by Flagging 

The MAPS program can produce three different types of output listings; total, by- 
man, and summary. Total and by-man listings have already been discussed. Summary 
listing is described in the next section. A flag option is programmed to allow any item 
to print or not to print on any listing or combination of listings. Although an item may be 
flagged for selective printout, the printing will not actually occur unless that form of 
listing has been requested when the program is run. The total listing is automatically 
printed every time the program is run. A by-man listing is requested by inserting one 
or more by-man cards in the program deck. A summary listing is requested by punch- 
ing a one (1) in control card column 4. 

When there is no flag the item will always print on total and by-man listings and 
never print on the summary listing. When there is a flag, the item will print on the list- 
ing(s) specified in table II. The flag (number) is punched in ID card column 51. For ex- 
ample, if an item is to be printed on the by-man and summary listings but not on the total 
listing, a 5 would be punched in ID card column 51. 

At times it may be advantageous to be able to select various groups of items to be 
listed, for example, there may be different groupings of items to be printed as summa- 
ries. The MAPS program permits up to four such groupings by utilizing ID card columns 
51, 52, 53, and 54 independently and in exactly the same way as described previously for 
column 51. Each time the program is run, a different ID card column can be chosen as 
the basis for selective printout of items. Thus, column 51 can be used to flag grouping 
number 1, column 52 can be used to flag grouping number 2, etc. When the program is 
run, the ID card flag column chosen for selective printout (i.e. , 51, 52, 53, 54) should 
be punched in control card columns 10 and 11. If control card columns 10 and 11 are 
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blank the program will automatically assume column 51 is to be chosen. Only one ID 
card flag column may be selected each time the program is run. 

The explanation thus far of selective printout by flagging is sufficient to allow a wide 
flexibility of its use. The more experienced operator may wish to continue reading at 
this point to obtain a deeper understanding of the programming details in order to use the 
option to its fullest advantage. To avoid confusion, it is suggested that the novice oper- 
ator skip directly to option 4 (summary output) . 

The flag procedure as described previously is based on a preprogrammed set of 
printout selection masks, one for each of the three listing types. The program uses 
these masks to decide whether or not a flagged item is to be printed. This is done by 
comparing bit by bit the binary representation of the flag with the binary representation 
of the appropriate mask. The decision to print occurs whenever both binary representa- 
tions have a 1 bit in at least one of the three bit positions. The binary representations 
are as follows: 


Decimal number 

Binary representation 

0 

000 

1 

001 

2 

010 

3 

on 

4 

100 

5 

101 

6 

110 

7 

111 


The three preprogrammed masks have the decimal values as follows; by- man = 1, 
total = 2, and summary = 4. Referring to the previous chart shows that a decimal 1 is 
represented by a 1 in the right bit position, a decimal 2 by a 1 in the middle bit position, 
and a decimal 4 by a 1 in the left bit position. 

As an example of how the comparison is done, when a 5 flag punch is compared to 
the three preprogrammed masks one at a time as shown in the following chart, a match 
of bits is found in the left bit position for the summary mask, in the right bit position for 
the by-man mask, but no match is found for the total mask; thus, this item would print 
on summary and by-man listings but not on the total listing. 
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5 Flag on ID card 

Binary 

representation 

1 

0 

1 

By-man mask(l) 

0 

0 

1 

Total mask (2) 

0 

1 

0 

Summary mask (4) 

1 

0 

0 


Normally, the three preassigned mask values will be adequate to accomplish the 
selective printouts desired. Occasionally there may be need to change the built-in val- 
ues to accomplish a special function. The most likely need would be to print a total list- 
ing of every item in the program deck whether flagged or not. This can be accomplished 
by changing the total mask from the preprogrammed value of 2 to a value of 7 (the 7 is 
represented by a 1 bit in every bit position which assures a match with any flag). 

Any of the three mask preprogrammed values can be changed by punching the de- 
sired value into the following: summary mask in control card column 22, total mask in 
control card column 8, and by-man into by-man card column 1. If any of these is left 
blank the program will automatically assign the mask values by-man = 1, total = 2, and 
summary = 4 to only the blank mask(s). When the program is run, the actual mask value 
used along with the ID flag column selected can be found in the printout. The total and 
summary masks are found in the special operator output, and the by-man mask is found 
at the top of each by-man page. 

4. Summary Output 

If the masking feature described previously is used, the program can produce a list- 
ing of only flagged items as a summary output that appears ahead of the total output. 

This summary output is called for by punching a 1 in column 4 of the control card. Since 
the lines of the summary output may be excerpted from any point in the program and at 
any hierarchy level, the arrangement in the summary output may appear somewhat dis- 
organized. It may therefore be desirable when using the summary output to insert ID 
cards which will produce extra item headings to help organize the summary information 
and which only print out in the summary listing. 

5. Blanking of Hierarchy Numbers in Output Listing 

It is occasionally desirable to blank out hierarchy numbers on summary and total 
printouts. An example of this is shown in figure 8(a). This can be readily accomplished 
by punching in control card columns 32 and 33 the highest hierarchy number which is to 
be blanked out to the printout. All hierarchy numbers less than or equal to the punched 
number and all its sublevels will then not appear on the summary and total printouts. 

This feature will not blank out hierarchy numbers on the by-man output. 
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6. Preventing the Slash Overprint on Individual Item Schedules 

Within the program printout it is convenient to interject notes and comments in the 
schedule field in place of a normal schedule. For ease of reading, it is desirable to pre- 
vent normal overprinting with status slashes on individual item lines where notes are to 
appear. This prevention of slashes can be accomplished by punching a period (.) in sta- 
tus update card column 15. This period will eppear in the printout under COMMENT as 
in item number 2 IB in figure 1. 

7. Need Date Overprint 

In scheduling important items which interface with other items on the project it may 
be desirable to establish a demand or needed completion date. This date may be earlier 
or later than a planned expected completion date. In order that this need date may be 
held fixed and independent of any schedule changes, a feature is available in the program 
which overprints a special character in the same manner as status slashes. The special 
character takes precedence over a slash in the same position and will overprint the leg- 
end character. 

The symbol to be overprinted at the need date may be selected by the operator. The 
symbol desired should be punched in column 7 of the control card. If column 7 is blank, 
the symbol :j= (colon on the key punch) will automatically be used. 

If the need-date overprint is desired for a given item, the schedule field column 
number (01 to 66) in which the character is to appear, is punched on the schedule card 
for that item in columns 67 and 68 (the column numbers zero to 9 must appear as two 
digits 01, 02, --, 09). 

If the slash overprint is suppressed with a 1 in column 6 of the control card, the 
need date symbol is also suppressed. 

8. Status Input From the ID Card 

Status information may be added to the program from either the status card or from 
the ID card. Columns 56, 57, and 58 on the ID card serve exactly the same function as 
columns 15, 16, and 17 on the status card. Likewise columns 60 to 65 on the ID card 
serve exactly the same function as columns 23 to 28 on the status card. Status from the 
ID card should be used only when there is no status card in the deck with the same hier- 
archy number; otherwise, the status card information will take precedence over the ID 
card. Whenever a new program deck is punched, the status information added by means 
of an ID card will automatically be transferred to a new status card and not punch out on 
the new ID card. 

9. Other Forms of Hierarchy Numbering 

The normal form for hierarchy numbering is NN, L, NN, L, NN, L (N = numeral, 

L = letter). Automatic indentation of the descriptions occur based on these six hierarchy 
levels. Within the program these hierarchy characters are all treated alike as alpha- 
numeric symbols: thus, any alpha-numeric symbol may be used in any hierarchy 
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character position. These symbols are sorted in the order of precedence of the normal 
FORTRAN IV ordering. This ordering is as follows: 

0, 1, 2, . . . . , 9, = , A, B, . . ., R, blank, S, T, . . ., Z 

This option can be useful in organizing dictionaries where the hierarchy word can be the 
exact word to be sorted. Examples of this use are shown in figures 8(h) and (j). This 
option requires the use of the hierarchy error message blankout described next. In ad- 
dition, if it is desired to blank out the hierarchy numbers themselves on the output list- 
ing, two characters may be punched into control card columns 32 and 33 as described in 
option 5. The characters can be numerals, letters, or equal sign (=), and they will 
serve to blank all hierarchy numbers of lower precedence (00 is lowest precedence and 
ZZ is highest). 

10. Hierarchy Error Message Blankout 

As mentioned earlier, the program requires levels of hierarchy to be continuous 
down to the lowest one used. The program automatically checks for this and prints an 
error message within the output text at any hierarchy error location. When using the 
program for special applications, such as glossary, parts list, engineering order list, 
etc. , hierarchy characters can be the significant name or number as described above 
and will in general violate the hierarchy levels requirement. In these special cases the 
hierarchy error message may be suppressed by punching a 1 in column 41 of the control 
card. This will also suppress the printing of the total number of hierarchy errors in the 
special operator information. 


SHIFTING THE CALENDAR 

In order to keep the calendar current with sufficient room for planning, the calendar 
must be changed and the schedule must be shifted to the left on the printout periodically. 
It has been the practice to shift the schedule shown in figure 1 every 6 months when the 
asterisk cursor has reached or passed column 38. In figure 1, this corresponds to the 
fourth week in January 1971. It has been found convenient to write a special computer 
program tailored to the users particular schedule format to perform this shifting opera- 
tion. After the shifted schedule deck is punched and a printout is run, all project per- 
sonnel are asked to review the schedule in detail and expand and extend the work plan. 
This procedure saves the complete manual repunching of the schedule deck. 
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OTHER PROGRAM USES 


The MAPS program has sufficient flexibility to make it useful for a variety of pur- 
poses where information is to be maintained in orderly lists . Example of actual pro- 
gram uses are shown in figure 8. These include a long range schedule, a long range 
schedule keyed to project part numbers, a failure and corrective action report index, a 
report list, a contractor report list, a drawing file index, a component and system test 
record, an engineering change order list, a parts list, and a glossary. These illustrate 
the flexibility of the ’’calendar” field format and of the hierarchy numbering system. 

The common denominator of all the uses is the ease of inserting and removing items at 
the appropriate location in a list. 

When all 66 calendar field columns are needed and when there is no need to tag new 
calendar field entries with an asterisk in column 1 of the calendar field, the slash card 
should be removed from the schedule deck. Removing the slash card will prevent the 
asterisk from appearing thus making all 66 columns available for information. 


EXPERIENCE WITH MAPS 

The MAPS program has been written to provide a convenient, thorough, and main- 
tainable project information system. The program has been used successfully for pro- 
ject review every two weeks for four years to coordinate the effort of 200 professional 
and nonprofessional personnel. Once the project information was organized, it has re- 
quired approximately 25 percent of one man's time for maintenance of the input data and 
operation of the program for a set of program decks typically totaling 1100 items. It has 
been found a most effective tool for project management and maintenance and dissemin- 
ation of detailed project information. A wide variety of lists including schedules, test 
hours, glossary, parts list, engineering order list, failure report list, and others have 
been conveniently maintained by means of the MAPS program . 

An important feature of the program is ease of readability by the uninitiated reader. 
Experience with MAPS indicates little difficulty in quickly grasping the information 
listed by the program. 

Most of all, the MAPS program has provided a means to generate a dynamic docu- 
ment displaying all aspects of a complex project using limited manpower to do so. This 
documentation has provided a valuable management tool to maintain orderly, efficient, 
and coordinated project progress. 

Lewis Research Center 

National Aeronautics and Space Administration, 

Cleveland, Ohio, November 6, 1970, 

120-27. 
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APPENDIX - MAPS FORTRAN PROGRAM LISTING 


$I8FTC MAPS DECK 

C THIS PROGRAM IS CALLED MAPS. AN ACRONYM FOR MANAGEMENT ANALYSIS 

C AND PLANNING SYSTEM. THE FOLLOWING ARE SOME SUGGESTIONS AND TIPS ON 
C IMPLEMENTING THIS PROGRAM ON YOUR COMPUTER. PRESENTLY IT IS RUN ON 
C AN IBM 709^, A 36 BIT WORD MACHINE WITH 32.768 WORDS OF CORE MEMORY. 

C 

C THIS PROGRAM IS WRITTEN IN FORTRAN IV FOR EXECUTION ON A 36 BIT 

C WORD COMPUTER. BY CUSTOM WRITING FOUR FUNCTION SUBPROGRAMS IT SHOULD 
C BE POSSIBLE TO USE THIS PROGRAM ON ANY COMPUTER WITH 36 OR MORE BITS 
C PER WORD. THE FOUR FUNCTIONS ARE ACCUMULATOR RIGHT SHIFT (ARS.IARS), 

C ACCUMULATOR LEFT SHIFT (ALS.IALSI, LOGICAL-AND (AND). AND LOGICAL-OR 
C (OR). IN GENERAL THESE FOUR FUNCTIONS 

C ARE USED TO STANDARDIZE WORDS FOR MASK COMPARISON. IN SOME LOCATIONS 
C THESE FUNCTIONS ARE USED TO TRANSFORM HOLLERITH NUMBERS INTO INTEGER 
C NUMBERS. 

C 

C HOLLERITH MANIPULATION REPRESENTS THE MAJOR USE OF THESE FUNCTION 

C SUBPROGRAMS. IT IS EXPECTED THAT THE HAPS PROGRAM WILL EXECUTE AS 
C WRITTEN IF THE FUNCTIONS ARE CAREFULLY PROGRAMMED. 

C HOWEVER. THE NUMBER TRANSFORMATION SECTIONS 

C OF THE MAPS PROGRAM MAY NEED TO BE REWRITTEN DEPENDING ON YOUR 
C COMPUTER, S INTEGER REPRESENTATION. 

C STATEMENTS INVOLVING NUMBER TRANSFORMATIONS ARE HAPS 138, 166, 170, 

C 173, AND OPRINT 32, 34, 36, 38, 117, 119, 120. 

C 

C FUNCTION SUBPROGRAM FOR LEFT, RIGHT SHIFT 

C THE SHIFT FUNCTIONS ASSUME THAT ZEROS WILL BE LOADED INTO BIT 

C POSITIONS MOVED INTO THE REGISTER BY THE SHIFT. AN EXAMPLE OF USE FOR 
C THESE FUNCTIONS IS 
C 

C X=ALS(24,ARS(12,X) ) 

C 

C THIS STATEMENT WOULD TRANSFORM FOR EXAMPLE THE HOLLERITH WORD X=ABCDEF 
C INTO THE HOLLERITH WORD X=COOOOO. 

C 

C FUNCTION SUBPROGRAMS FOR LOGICAL-AND, OR 

C THE LOGICAL-AND AND LOGICAL-OR FUNCTIONS ARE USED TO TRANSFORM TWO 

C WORDS INTO A THIRD WORD CONSIDERING EACH BIT OF THE 36 BIT WORD 
C SEPARATELY. THESE FUNCTIONS OPERATE SIMULTANEOUSLY, HOWEVER, ON 
C ALL 36 BITS. THE LOGICAL OPERATIONS FOR ONE BIT POSITION ARE 
C SUMMARIZED AS FOLLOWS 
C 


c 


LOGICAL-AND* 



LOGICAL 

-OR 


c 


X=AND( AtB) 



X 

=0R( A, 

6) 


c 

A= 

0 0 1 

1 

A = 

0 

0 

1 

1 

c 

c 

6= 

0 10 

1 


0 

1 

0 

1 

c 

c 

X= 

0 0 0 

1 

X= 

0 

1 

1 

1 


C THESE rWO FUNCTIONS ARE USED FOR MASKING AND COMPOSING HOLLERITH 
C WORDS. 

C 

C SINCE CONSIDERABLE HOLLERITH MANIPULATION IS DONE BY THE PROGRAM 

C THE MACHINE OCTAL REPRESENTATIONS FOR HOLLERITH CHARACTERS IS LISTED 
C HERE FCR REFERENCE. THESE ARE USED TO COMPOSE SOME OF THE OCTAL MASKS 
C IN THE PROGRAM. 


MAPS 

1 

MAPS 

2 

MAPS 

3 

MAPS 

4 

MAPS 

5 

MAPS 

6 

MAPS 

7 

MAPS 

8 

MAPS 

9 

MAPS 

10 

MAPS 

11 

MAPS 

12 

MAPS 

13 

MAPS 

14 

MAPS 

15 

MAPS 

16 

MAPS 

17 

MAPS 

18 

MAPS 

19 

MAPS 

20 

MAPS 

21 

MAPS 

22 

MAPS 

23 

MAPS 

24 

MAPS 

25 

MAPS 

26 

MAPS 

27 

MAPS 

28 

MAPS 

29 

MAPS 

30 

MAPS 

31 

MAPS 

32 

MAPS 

33 

MAPS 

34 

MAPS 

35 

MAPS 

36 

MAPS 

37 

MAPS 

38 

MAPS 

39 

MAPS 

40 

MAPS 

41 

MAPS 

42 

MAPS 

43 

MAPS 

44 

MAPS 

45 

MAPS 

46 

MAPS 

47 

MAPS 

48 

MAPS 

49 

MAPS 

50 

MAPS 

51 

MAPS 

52 

MAPS 

53 

MAPS 

54 

MAPS 

55 

MAPS 

56 
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oooooooonoooooonoonooo non 


I.E. ALS- 


OCT 

HOL 

OCT 

HOL 

OCT 

HOL 

OCT 

HOL 

OCT 

MAPS 

57 

— 

— 

— 

— — 

— 

— 

— — 

— — 

— 

MAPS 

58 

00 

A 

21 

K 

42 

U 

64 

= 

13 

MAPS 

59 

01 

B 

22 

L 

43 

V 

65 

/ 

61 

MAPS 

60 

02 

C 

23 

M 

44 

w 

66 

* 

54 

MAPS 

61 

03 

D 

24 

N 

45 

X 

67 

+ 

20 

MAPS 

62 

04 

E 

25 

0 

46 

Y 

70 

- 

40 

MAPS 

63 

05 

F 

26 

P 

47 

Z 

71 

= 

72 

MAPS 

64 

06 

G 

27 

0 

50 

« 

33 

f 

14 

MAPS 

65 

07 

H 

30 

R 

51 

f 

73 

$ 

53 

MAPS 

66 

10 

I 

31 

S 

62 

) 

34 

BLANK 

60 

MAPS 

67 

11 

J 

41 

T 

63 

( 

74 

+ 

12 

MAPS 

MAPS 

68 

69 

>TATEMENTS IN 

THE 

PROGRAM 

WHICH 

INVOLVE 

LOGICAL OPERATIONS 

MAPS 

70 

lALS, 

ARS, 

I ARS, 

AND, OR 

, ARE 

PRECEEDEO BY 

THE COMMENTS CARD 

MAPS 

71 


LOGICAL STATEMENT FOLLOWS 

DUE TO THE DECK SIZE*THIS PROGRAM USES OVERLAY AMONG SUBROUTINES 
CHECKt RUNOUT, PICK, OPR I NT, AND SORTER. 

THE VARIABLES Ql, Q2 , ETC. IN READ STATEMENTS 110, 124, AND 128 ARE 
USED ONLY WHEN PRINTING ERROR CARDS. 


DATA FBL,FIF/6H 0000, 2H51/ 

DATA TAXX/0777777777770/ 

DATA INEED/0120000000000/ 

DATA XMAN<200)/6HBLANK / 

DATA KSA/0/ 

DATA SLASH/IH// 

DATA IN/0000000000001/ 

DATA TXQ/0000000000002/ 

DATA ROX1,ROX2/6H*00000, 0007777777777/ 

DATA T AST, TASX/6HOO0*OO, 0777777000000/ 

DATA T0T,E0UAL/5HTITLE,6H======/ 

DATA SY, AST,BLANK,MSKl,MSK2,BNKi,BNK2,DASH,ASTQ,CEEQ,BANK,FLQ/lHS, 
IIH*, IH .0000000000077,0000000007777,0000000000060, 0000000006060, 6H 

2 ,0000000000054,0777777777700,0606060606060,0606060606054/ 

DATA MSK(l,l),MSK(l,2),MSKa,3),MSK(l,4),MSK(l,5),MSK(l,6),MSK(2,l 
1),M5K(2,2),MSK(2,3),MSK( 2,4), MSK( 2,5), MSK{ 2,6) /0777700000000, 07777 
277000000,0777777777700,0777777777700,0777777777700,0777777777700,0 
3000000000000,0000000000000,0000000000000,0770000000000,07777770000 
400,0777777770000/ 

DATA XNPX/0000000777777/ 

DATA SYB/0120000000000/ 

DATA MXK/6H000000/ 

DATA TASO/0000000770000/ 

DATA ROX3/0770000000000/ 

DIMENSION ZMAN(20), XLGND(42), 

DIMENSION SPKll), SP2(11) 

DIMENSION MSPKll), MSP2(11) 

DIMENSION HEADl ( 11 ), HEAD2( 11) , 

DIMENSION GEN(2, 1000), T ITLE ( 5, 1000 ) , 

11000), COMFNT( 1, 1000) , KOUNT(lOOl), XMAN(200), 

2, SCHD(ll,1000), TAME(3), HEADNG(14) 

DIMENSION MSK(2,6) , IZAM(2) 

EQUIVALENCE (MSPl(l) ,SP1(1) ) , ( MSP2 ( 1 ) , SP2 ( 1 ) ), 


H(8) 


HEAD3(11) 

RSP(IOOO), 


COOE(IOOO), STATI 
XORG(IOO), SKED(ll) 


(KLANK, BLANK) 


EQUIVALENCE (H( 1 ) .KOLUMN )♦ ( H{ 2),KEND) 

ICH) , ( H(5 ) ,KTI ) , ( H( 6 ) ,KBIN) , (HI 7) ,NOHE ) , IB,NB) 

COMMON NUMBER,GEN,SCHD,L INE.KOLUMM 
COMMON TITLE,RSP,CODE ,STAT,COMENT 
COMMON KOUNT 


(H(3),IZAM(1) ) , (H(8) ,KPUN 


MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 

MAPS 


72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 ' 
102 

103 

104 

105 

106 

107 

108 
109 

no 

111 

112 

113 

114 

115 

116 

117 

118 
119 


20 


no o o no on non o o o o o o o n no o^ooon 


REAL IN,MANL»MAINLtMASUM,MXK 


BEGIN EXECUTABLE PROGRAM 
PROGRAM MESSAGE CARD (CARO 1) 
a READ (5tl66) HEADNG 

IF (KSA.EQ.O) WRITE ( 6, 167) ( DASH, J= I , 22 ) , BLANK 

CONTROL CARD (CARD 2) 

READ (5,168) KQLUMN, KEND , I ZAM, MA INL , MASUM, XNPR ,KPUNCH , KT I , KB I N ,MOH 
IE 

KPUN=KPUNCH 


KTM=0 

KERR=0 

LOGICAL STATEMENT FOLLOWS 
H(8 )=ARS(33, ALS(9,KPUNCH) ) 

IF (KPUNCH.GT.O) PUNCH 166, HEADNG 

IF (KPUNCH.GT.O) PUNCH 168, KOLUMN , KEND, I ZAM , MAI NL , MASUM , XNPR, KPUN 
l,KTI,K8IN,NOHE 

IF (IZAM(2).EQ.KLANK) IZ AM ( 2 )= INEED 
IF (KSA.EQ.O) WRITE (6,169) KOLUMN , KEND , I ZAM (1 ) 

KSET^l 

SUBROUTINE FLAG WITH KSET=1 ASSIGNS THE TOTAL AND SUMMARY LISTING 
MASKS AND THE ID CARD FLAG COLUMN. 

CALL FLAG ( M A I NL , MAS UK , M ANL , CODE , L I NE , MANOUT , KEND , KGT , KSET ) 

LOGICAL STATEMENT FOLLOWS 
FLGU=ALS(24, ARS( 12,MAINL ) ) 


IF ( XNPR. EQ. BLANK) XNPR=MXK 

IF (KSA.EQ.O) WRITE (6,170) I ZAM ( 2 ) , SYB , MA I NL , FLGU , MASUM 

IF (KSA.EQ.O) WRITE (6,171) XNPR , KPUN , KT I , NOHE 

LOGICAL STATEMENT FOLLOWS 
B=ARS(33,ALS(3,H(D) ) 

DO 102 JH=1,7 
IF (JH.EQ.4) GO TO 102 
C LOGICAL STATEMENT FOLLOWS 

H( JH) = ARS(32,ALS(8,H( JH) )) 

102 CONTINUE 

C LOGICAL STATEMENT FOLLOWS 

K0LUMN=K0LUMN+10*NB 

IF (KOLUMN. LT.O. OR. KOLUMN. GT. 66) K0LUMN=0 
KOLUMM^KOLUMN 

C LOGICAL STATEMENT FOLLOWS 

XNPR=OR( ARS(6,XNPR), XNPX ) 

MAN0UT=0 

JPAGE=0 


MAPS 

120 

MAPS 

121 

MAPS 

122 

MAPS 

123 

MAPS 

12A 

MAPS 

125 

MAPS 

126 

MAPS 

127 

MAPS 

128 

MAPS 

129 

MAPS 

130 

MAPS 

131 

MAPS 

132 

MAPS 

133 

MAPS 

134 

MAPS 

135 

HAPS 

136 

MAPS 

137 

MAPS 

138 

MAPS 

139 

MAPS 

140 

MAPS 

141 

MAPS 

142 

MAPS 

143 

MAPS 

144 

MAPS 

145 

MAPS 

146 

MAPS 

147 

MAPS 

148 

MAPS 

149 

MAPS 

150 

MAPS 

151 

MAPS 

152 

MAPS 

153 

MAPS 

154 

MAPS 

155 

MAPS 

156 

MAPS 

157 

MAPS 

158 

MAPS 

159 

MAPS 

160 

MAPS 

161 

MAPS 

162 

MAPS 

163 

MAPS 

164 

MAPS 

165 

MAPS 

166 

MAPS 

167 

MAPS 

168 

MAPS 

169 

MAPS 

170 

MAPS 

171 

MAPS 

172 

MAPS 

173 

MAPS 

174 

MAPS 

175 

MAPS 

176 

MAPS 

177 

MAPS 

178 

MAPS 

179 


21 


n o 


IF (KOLUMN.EQ.O) GO TO 104 

CEEP==CEE0 

FLP^FLQ 

ASTR==ASTQ 

KRK=(K0LUMN+5)/6 

K0L=K0LUMN-6*KRK+6 

KSHFT=36-6*K0L 

C LOGICAL STATEMENT FOLLOWS 

SRK=ALS(KSHFT»MSK1) 

C LOGICAL StATEMENT FOLLOWS 

BRK=ALS(KSHFT#BNK1) 

C LOGICAL STATEMENT FOLLOWS 

ASTR=ALS(KSHFT*ASTR) 

IF (K0L,EQ.6) GO TO 104 
DO 103 J*K0L,5 

C LOGICAL STATEMENT FOLLOWS 

FLP=OR ( ALS ( 6 1 FLP ) • BNK 1 ) 

C LOGICAL STATEMENT FOLLOWS 

103 CEEP=OR( ALS(6,CEEP),MSK1 ) 

104 CONTINUE 
C 

C CALENDAR HEADING CARDS (CARDS 3f4,5) 

READ (5,172) ( HEADK J ) , J =1 , 1 1 ) , ( HE A02 ( J ) , J=1 , 1 1 ) , ( HE AD3 ( J ) , J=1 ,1 1 ) 
C 

IF (KMNCH.GT.O) PUNCH .72, ( HE ADI ( J ) , J=1 , 1 1 ) , ( HEAD2 ( J ) , J“1 , 1 1 ) , ( H 
1EAD3(J) ,J=1,11) 

C 

C LEGEND CARDS (CAROS 6,7,8) 

READ (5,173) XLGND 
C 

IF (KPUNCH.GT.O) PUNCH 173, XLGND 
C 

DO 105 JQZ=l,ll 
MSP1(JQZ)=0 

105 MSP2(J0Z)=0 

DO 109 JQZ=1,11 
MSR=MSK(2,4) 

C LOGICAL STATEMENT FOLLOWS 

PER=ALS(30,BNK1) 

DO 108 J0X=1,6 

C LOGICAL STATEMENT FOLLOWS 

IF (AND(HEAD3( JQZ),MSR)*NE*PER) GO TO 106 
C LOGICAL STATEMENT FOLLOWS 

SPK JQZ)=0R(MSP1( JQZ ) ,MSR) 

GO TO 107 

C LOGICAL STATEMENT FOLLOWS 

106 SP2 ( J0Z)=:0R(MSP2( JQZ ) , AND( HEAD3 ( JQZ ) , MSR ) ) 

C LOGICAL STATEMENT FOLLOWS 

107 PER=ARS(6,PER) 

C LOGICAL STATEMENT FOLLOWS 

108 MSR=IARS(6,MSR) 

109 CONTINUE 

C LOGICAL STATEMENT FOLLOWS 

IF (KOLUMN.NE.O) HEAD3 ( KRK ) = 0R ( ASTR, AND ( HEAD3 ( KRK ) ,CEEP ) ) 

C 

IF (KSA.EQ.O) WRITE (6,174) 

START ID CARD READ **** 

XMANd )=8ANK 
MAN = 1 
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DO 119 J=l,999 
C 

C ID DECK (CARDS 9), AND ASTERISK CARD (CARD 10) 

110 READ (5*1T5) ST , 0 1 » ( GEN( K, J ) ,K=1 , 2 ) f Q2 t ( TI TLE ( K , J ) , K=l , 5 ) ,Q3 » RSP ( J 
n,Q4,COOE(J) ,Q5,STAT( J),Q6,(C0MENT(K,J),K=1,I) ,Q7,Q8,Q9 

C 

IF (ST.EQ.SY) GO TO 111 
IF 1ST. EQ. AST) GO TO 121 
C 

WRITE (6,176) ST.Qlt ( GEN (K» J ) , K = 1 , 2 ) ,Q2 , ( T I TLE ( K , J ) , K=1 , 5 ) , Q3 , RSP ( 
IJ) ,Q4,C0DE( J ) ,Q5tSTAT( J) .06, ( COMENT ( K» J ) , K=1 , 1 ) , 07 •Q8.Q9 
C 

KERR=1 
GO TO 110 

111 IF (GEN(2.J).EQ. BLANK) GO TO 112 

C LOGICAL STATEMENT FOLLOWS 

IF (AND(MSK1,ARS(12,GEN(2,J) )).NE.BNK1) GO TO 113 
C LOGICAL STATEMENT FOLLOWS 

IF (AND(MSK2*ARS(18.GEN( 2. J ) ) ).NE.BNK2) GO TO 114 
KOUNT( J)=4 
60 TO 117 

C LOGICAL STATEMENT FOLLOWS 

112 IF (AND(MSK2.ARS(6,GEN(1,J) ) ).NE.BNK2) GO TO 115 

C LOGICAL STATEMENT FOLLOWS 

IF (AND(MSK1,ARS(18*GEN( 1,J) )).NE.BNK1) GO TO 116 
C LOGICAL STATEMENT FOLLOWS 

IF (AND(MSK2,ARS(24,GEN( 1,J) )).EQ.BNK2) GO TO 116 
KOUNT( J)=l 
GO TO 117 

113 K0UNT(J)=6 
GO TO 117 

114 K0UNT(J)=5 
GO TO 117 

115 K0UNT(J)=3 
GO TO 117 

116 K0UNT(J)=2 

117 DO IIB JMAN=1,MAN 

IF (XMAN( JMAN).EQ.RSP( J) ) GO TO 119 

118 CONTINUE 
MAN=MAN+1 
XMAN(MAN)=RSP( J) 

119 CONTINUE 
C 

WRITE (6,177) 

C 

C THIS READ SEARCHES ONLY FOR THE ASTERISK (CARD 10) IF MORE THAN 1000 
C ID CARDS HAVE BEEN ALREADY READ IN 

120 READ (5,178) QXJ 
C 

IF (QXJ. NE. AST) GO TO 120 

ALL CARDS READ IN AND BAD CARDS REJECTED 
1 NUMBER=J-1 

SORTER SORTS CARDS INTO ASCENDING HIERARCHY ORDER 
CALL SORTER (KXM) 

CHECK LOOKS FOR HIERARCHY ERRORS 
CALL CHECK (KXM) 

C 
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IF (KSA.EQ.O) WRITE (6,179) 

C 

C **** START SCHEDULE CARD READ **** 

DO 123 LX=1,11 
DO 122 JX=1, NUMBER 

122 SCHOaX, JX) = HEAD3(LX ) 

123 CONTINUE 
KOG=0 

C 

C SCHEDULE UPDATE DECK INCLUDING SCHEDULE CARDS, SLASH CARO, SCHEDULE 
C UPDATE CARDS, AND ASTERISK CARD (CARDS 11,12,13,14) 

124 READ (5,180) ( SKED ( J ) , J= 1, 11 ) , ANEED, Q1 , GEN 1 , GEN2,Q2 
C 

IF (SKED( D.EQ.AST) GO TO 127 
IF (SKED(l).EQ. SLASH) K0G=1 
IF (SKED( D.EQ. SLASH) GO TO 124 
KFLAG=0 

DO 126 JJ=1, NUMBER 

C LOGICAL STATEMENT FOLLOWS 

IF (GEN1.NE.AND(GEN( 1, JJ ),TAXX) ) GO TO 126 
IF (GEN2.NE.GEN(2, JJ ) ) GO TO 126 
C LOGICAL STATEMENT FOLLOWS 

GEN( 1, JJ)=OR(GEN( 1,JJ ) ,TXQ) 

C LOGICAL STATEMENT FOLLOWS 

CODE(JJ)=OR(ALSC12,ARS(12,CODE( JJ) )), ARS ( 24, ANEED ) ) 

KFLAG=1 

DO 125 JR=1,11 

C LOGICAL STATEMENT FOLLOWS 

125 SCHD(JR, JJ) = 0R(MSP2( JR ) , AND ( MSP 1 ( JR ) , SKED( JR) ) ) 

C LOGICAL STATEMENT FOLLOWS 

IF (KDLUMN.GT.O.AND. AND( SCHD ( KRK , J J ) , SRK ) • EQ . BRK ) SCHD ( KRK, J J ) =0R ( 
IASTR,AND(SCHD(KRK, JJ ) ,CEEP) ) 

C LOGICAL STATEMENT FOLLOWS 

IF (K05.E0.I) SCHDd, JJ)=0R(R0X1,AN0(R0X2,SCHD( 1, JJ) ) ) 

126 CONTINUE 

IF (KFLAG.EQ.l) GO TO 124 
C 

WRITE (6,181 ) ($KED( J) ,J = 1, 11) ,ANEED,QI,GEN1,GEN2,Q2 
C 

KERR=1 
GO TO 124 

127 CONTINUE 

IF (KSA^EQ.O) WRITE (6,179) 


**** START STATUS CARD READ **** 
K0G=0 


C 

C STATUS DECK INCLUDING STATUS CAROS, SLASH CARD, STATUS UPDATE CARD, 

C AND ASTERISK CARD (CARDS 15,16,17,18) 

128 READ (5,182) GEN 1 , GEN2 . Q 1 , WK S , 02 , COT 1 . 0 3 , 04, 05 , Q6 , 07 , 08 , Q9 , 010 , Q 1 1 
C 


C 


C 


IF (GENl.EQ.AST) GO TO 130 
IF (GENl.EO. SLASH) K0G=1 
IF (GENl.EO. SLASH) GO TO 128 
DO 129 JJ=1, NUMBER 

LOGICAL STATEMENT FOLLOWS 
IF (GENI.NE. AND(GEN( 1,JJ ),TAXX) ) GO TO 129 
IF (GEN2.NE.GEN(2, JJ ) ) GO TO 129 
STAT( JJ )=WKS 

LOGICAL STATEMENT FOLLOWS 


MAPS 

300 

MAPS 

301 

MAPS 

302 

MAPS 

303 

MAPS 

304 

MAPS 

305 

MAPS 

306 

MAPS 

307 

MAPS 

308 

MAPS 

309 

MAPS 

310 

MAPS 

311 

MAPS 

312 

MAPS 

313 

MAPS 

314 

MAPS 

315 

MAPS 

316 

MAPS 

317 

MAPS 

318 

MAPS 

319 

MAPS 

320 

MAPS 

321 

MAPS 

322 

MAPS 

323 

MAPS 

324 

MAPS 

325 

MAPS 

326 

MAPS 

327 

MAPS 

328 

MAPS 

329 

MAPS 

330 

MAPS 

331 

MAPS 

332 

MAPS 

333 

MAPS 

334 

MAPS 

335 

MAPS 

336 

MAPS 

337 

MAPS 

338 

MAPS 

339 

MAPS 

340 

MAPS 

341 

MAPS 

342 

MAPS 

343 

MAPS 

344 

MAPS 

345 

MAPS 

346 

MAPS 

347 

MAPS 

348 

MAPS 

349 

MAPS 

350 

MAPS 

351 

MAPS 

352 

MAPS 

353 

MAPS 

354 

MAPS 

355 

MAPS 

356 

MAPS 

357 

MAPS 

358 

MAPS 

359 


24 



Oh-O O I— ooo o o o ooo oo 


IF (KOG.EO.U STAT(JJ)=OR(TAST,AND{STATtJJ)tTASX>> 

COMENTI 1, JJ)=C0T1 
GO TO 128 

129 CONTINUE 
C 

WRITE 16, 183) GEN1,GEN2,Q1,WKS,Q2,COTI,Q3,04,Q5,Q6,Q7,Q8,Q9,Q10,QI 
11 
C 

KERR=1 
GO TO 128 

130 DO 131 JJ=1, NUMBER 

C LOGICAL STATEMENT FOLLOWS 

IF ( ANDISCHDI 1, J J ) ,R0X3) .NE. ROX l.OR. AN0( STATI J J ) , TASQ) .EQ. TAST.OR. 
1ST ATUJ ).EQ. BLANK) GO TO 131 

C LOGICAL STATEMENT FOLLOWS 

STAT UJ)=0R(TAST, AND! BLANK, T ASX) ) 

131 CONTINUE 
C 

IF (KERR. EQ.O. AND. KSA.EQ.O) WRITE (6,184) BLANK 

PUNOUT PUNCHES A NEW ID , SCHEDUL E, AND STATUS DECK 
IF (KPUNCH.GT.O) CALL PUNOUT 

PICK LISTS THOSE CARDS WITH A NON BLANK FLAG FIELD (CC 51-54) ON 
THE ID CARD 

IF (KSA.EQ.O) CALL PICK (GEN .CODE , NUMBER ) 

IF (KSA.EQ.O) WRITE (6,185) ( XMAN ( J AB ) , JAB=1 .MAN ) 

IF (KSA.EQ.O) WRITE (6,186) NUMBER 
IF (KXM.NE.O. AND. NOHE. EQ.O) WRITE (6,187) KXM 


•*** START OF PROCESSING **** 

32 CONTINUE 
LINE=1 
KSET=2 

SUBROUTINE FLAG WITH KSET=2 ASSIGNS THE BY-MAN LISTING MASK. 

CALL FLAG { MA I NL t MASUM, M ANL , CODE» L INE , MANOUT , KEND, KGT , KSET ) 

33 JPAGE=JPAGE+1 

WRITE (6,188) HEADNG 
C 

IF (XMAN( 1) .EQ.BLANK ) JMAN=200 
C 

IF (MANOUT. EQ.l) WRITE (6,189) XMAN ( JMAN ) , MANL 
C 

IF ( JMAN. EQ. 200) JMAN=1 
C 

WRITE (6, 190 ) (HE ADI ( KPX ) , KPX= 1 , 1 1 ) , (HEAD2(KPX) ,KPX=1 ,11 ) , (DASH, J= 

11 , 22 ) 

C 

LNT=0 

IF (MANOUT. EQ.l) LNT=2 
GO TO 135 

134 LINE=LINE+1 

135 IF (LINE. GT. NUMBER) GO TO 163 
IF (MANOUT. EQ.O) GO TO 139 
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IF (RSP(LINE).EQ.XMAN(JMAN) ) GO TO 136 MAPS 

GO TO 137 MAPS 

C LOGICAL STATEMENT FOLLOWS MAPS 

136 IF (KOUNT(LINE) .GT.KIX.ANO.AND(GEXl,MSK( 1,KIX) ) . EQ. AND ( GEN{ 1 , L INE ) MAPS 

l.MSK(l.KIX) ).ANO.AND(GEX2,MSK(2,KIX) ) • EO . AND ( GEN ( 2 ,L INE ) , MSK ( 2 ,K I X MAPS 

2) )) GO TO 140 MAPS 

KIX=KOJNT(LINE) MAPS 

GEX1=GEN( ItLINE) MAPS 

GEX2=GEN(2,LINE) MAPS 

GO TO 140 MAPS 

137 KXXL=XOUNT(LINE) MAPS 

C LOGICAL STATEMENT FOLLOWS MAPS 

IF ( KXXL. GT.KIX. AND. AND(GEX1,MSK(1,K IX ) ).E0. AND (GENU, LINE) ,MSK(1, MAPS 

IK IX) ). AN0.AND(GEX2,MSKt2,KIX ) ) . EQ. AND( GEN( 2 , LI NE ) , MSK ( 2 t K IX ) ) ) GO MAPS 

2T0 140 MAPS 

IF (GEXl.EQ.GENI 1, LINE). AND. GEX2.EQ. GEN(2*LINE) ) GO TO 160 MAPS 

DO 138 JKMA^LINE, NUMBER MAPS 

IF (K0UNT(JKMA+1).LE.KXXL) GO TO 160 MAPS 

IF (RSP(JKMA+1).E0.XMAN( JMAN)) GO TO 140 MAPS 

138 CONTINUE MAPS 

GO TO 160 MAPS 

139 CONTINUE MAPS 

140 NUM^KOUNT(LINE) MAPS 

KSET=3 MAPS 

C SUBROUTINE FLAG WITH KSET=3 DECIDES WHEN A CARO SHOULD PRINT. MAPS 

CALL FLAG ( MA I NL , MASUM , M ANL t CODE, L INE, MANOUT , KEND , KGT • KSET) MAPS 

C MAPS 

IF (KGT.EQ.l) GO TO 160 MAPS 

IF (TOT.NE.RSP(LINE) ) GO TO 141 MAPS 

IF (MANOUT.EQ.l) GO TO 160 MAPS 

C MAPS 

WRITE (6,191) ( (HEAD3(KPX),KPX=1, 11) ,K=1,2 ) , ( EQUAL , K=1 , 6 ) , ( HEAD3 ( K MAPS 

IPX) ,KPX=1, 11) , (TITLE ( KPX,L INE ), KPX=i,5 ) , (HEAD3 ( KPX ) ,KPX=1 , 1 1 ) , { EQU MAPS 

2AL,KPX = 1,6) , (HEAD3(KPX.),KPX=l,ll) MAPS 

C MAPS 

LNT=5 MAPS 

GO TO 160 MAPS 

141 TEMX1=GEN( 1,LINE) MAPS 

TEMX2=GEN(2,LINE) MAPS 

C LOGICAL STATEMENT FOLLOWS MAPS 

IF (ARS(6, GENd, LINE) ).GT.XNPR. OR. MANOUT.EQ.l) GO TO 142 MAPS 

C LOGICAL STATEMENT FOLLOWS MAPS 

GEN( 1, LINE) =0R( BLANK , AND (GEN ( 1, LINE) , IN) ) MAPS 

GEN(2,LINE)=BLANK MAPS 

C MAPS 

C MAPS 

C ^|*** START OF SCHEDULE OUTPUTING **** MAPS 

142 IF (NUM-2) 145,149,143 MAPS 

143 IF (NUM-4) 151,153,144 MAPS 

144 IF (NUM-6) 155,157,157 MAPS 

145 IF (LNT.LT.38) GO TO 147 MAPS 

IF (MANOUT.EQ.l) GO TO 161 MAPS 

KKX=I MAPS 

DO 146 JX=LINE, NUMBER MAPS 

IF (KDUNT( JX+1).E0.1.AND.LNT.LE.44) GO TO 147 MAPS 

IF (KKX.GT. (44-LNT) ) GO TO 161 MAPS 

146 KKX=KKX+1 MAPS 

C LOGICAL STATEMENT FOLLOWS MAPS 

147 IF (AND(GEN( l.LINE), IN).EQ.0.0.0R.N0HE.E0.1) GO TO 148 MAPS 

C MAPS 
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WRITE (6,192) 

MAPS 

48D 

c 


MAPS 

481 


LNT=LMT+1 

MAPS 

482 

c 


MAPS 

483 

148 

WRITE (6,193) ( (HEAD3(KPX),KPX=1,11) ,KPZ=1,2) 

MAPS 

484 

C 


MAPS 

485 


WRITE (6, 194) GEN(1,LINE ), (TITLE (KX, LINE), KX=1, 5), (SCHDIKX, LINE), K 

MAPS 

486 


1X=1,11) ,STAT( LINE) ,(COMENT(KX, LINE), KX=1,1),RSP( LINE) 

MAPS 

487 

C 


MAPS 

488 

C OPRINT SETS UP AND PRINTS THE SLASH AND NEED DATE SCHEDULE OVERPRINT 

MAPS 

489 


CALL OPRINT ( ST AT ( H NE ) , IZ AM 1 

MAPS 

490 

c 


MAPS 

491 


WRITE (6*195) (DASH*KK=1*5). (HEAD3(KPX)*KPX=1,1U 

MAPS 

492 

c 


MAPS 

493 


LNT=LMT+4 

MAPS 

494 


GO TO 159 

MAPS 

495 

c 

LOGICAL STATEMENT FOLLOWS 

MAPS 

496 

149 

IF (AND(GEN(1,LINE), INI.EQ.O.O.OR.NOHE.EQ.I) GO TO 150 

MAPS 

497 

C 


MAPS 

498 


WRITE (6,192) 

MAPS 

499 

C 


MAPS 

500 


LNT=LNT+1 

MAPS 

501 

c • 


MAPS 

502 

150 

WRITE (6,196) GEN(1,LINE), ( T I TLE ( KX ,L INE ) . KX = 1 , 5 ) , ( SCHO ( KX, LI NE ) ,K 

MAPS 

503 


1X=1,11 ) ,STAT( LINE) ,(COMENT I KX, LINE) ,KX=l,l ),R$P( LINE) 

MAPS 

504 

C 


MAPS 

505 


CALL OPRINT ( STAT ( LI NE ) , IZ AM ) 

MAPS 

506 

C 


MAPS 

507 


LNT=LNT+1 

MAPS 

508 


GO TO 159 

MAPS 

509 

C 

LOGICAL STATEMENT FOLLOWS 

MAPS 

510 

151 

IF (AN0(GEN(1,LINE), IN).EQ.0.0.0R.N0HE.EQ,1) GO TO 152 

MAPS 

511 

C 


MAPS 

512 


WRITE (6,192) 

MAPS 

513 

c 


MAPS 

514 


LNT=LNT+1 

MAPS 

515 

c 


MAPS 

516 

152 

WRITE (6,197) GEN(1, LINE ), ( T I TLE ( KX, L INE ) , KX=1 , 5 ) , ( SCHD ( KX , L I NE ) , K 

MAPS 

517 


1X=1, ID ,STAT(LINE) ,(COMENT(KX, LINE) ,KX=1,1 ),RSP (LINE) 

MAPS 

518 

C 


MAPS 

519 


CALL OPRINT ( STAT ( L I NE ) , IZ AM ) 

MAPS 

520 

c 


MAPS 

521 


LNT=LNT+1 

MAPS 

522 


GO TO 159 

MAPS 

523 

c 

LOGICAL STATEMENT FOLLOWS 

MAPS 

524 

153 

IF (AND(GEN(1,LINE), IN).EO.O,O.OR.NOHE.EO.l) GO TO 154 

MAPS 

525 

C 


MAPS 

526 


WRITE (6,192) 

MAPS 

527 

C 


MAPS 

528 


LNT=LNT+1 

MAPS 

529 

C 


MAPS 

530 

154 

WRITE (6,198) GEN(1,LINE),GEN(2,LINE),(TITLE(KX,LINE),KX=1,5) ,(SCH 

MAPS 

531 


10 (KX, LINE ) ,KX=1,11), STAT(LINE) , (COMENT(KX,LINE) ,KX=1, 1) ,RSP(LINE ) 

MAPS 

532 

C 


MAPS 

533 


CALL OPRINT ( STAT (LI NE ) , IZ AM ) 

MAPS 

534 

C 


MAPS 

535 


LNT=LNT+1 

MAPS 

536 


GO TO 159 

MAPS 

537 

C 

LOGICAL STATEMENT FOLLOWS 

MAPS 

538 

155 

IF (AND(GEN( 1,LINE), IN).EQ.0.0.0R.N0HE.EQ.1) GO TO 156 

MAPS 

539 
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o o 


C 

WRITE (6*192) 

C 

LNT=LNT+1 

C 

156 WRITE (6*199) GEN ( 1* L INE ) , GEN ( 2*L INE ) * ( T ITLE ( KX , LI NE ) , KX=1 , 5 ) , ( SCH 
1D{KX,LINE)*KX=1,11),STAT{LINE),(C0MENT(KX,LINE)*KX=1,1),RSP(LINE) 

C 

CALL DPRINT ( STAT ( LI NE ) , IZ AM ) 

C 

LNT=LNT+1 
GO TO 159 

C LOGICAL STATEMENT FOLLOWS 

157 IF (ANO(GEN(l,LINE)* IN),EQ.O.O.OR.NOHE.EQ.l) GO TO 158 
C 

WRITE (6*192) 

C 

LNT=LNT+1 

C 

158 WRITE (6*200) GEN ( 1 * L I NE ) , GEN ( 2 , L I NE ) * ( TI TLE ( KX, LI NE ) , KX=1 , 5 ) , ( SCH 
1D(KX*LINE) *KX=1.11), STAT(LINE)* (COMENT(KX*LINE) *KX=1*1)*RSP(LINE) 

C 

CALL OPRINT ( STAT { LI NE ) * IZ AM ) 

C 

LNT=LNT+1 

159 GEN(l,LINE)=TEMXl 
GEN(2,LINE)=TEMX2 

160 LINE=LINE+1 
C 

KSET=3 

CALL FLAG ( M A I NL * MASUM , MANL , CODE * L I NE * MANOUT * KEND * KGT* KSET ) 
IF(KGT.EQ.l) GO TO 13A 

IF (RSPCLINE).EQ. TOT. AND. MANOUT. EQ*0) GO TO 162 
IF (LNT.LT.47) GO TO 135 

C LOGICAL STATEMENT FOLLOWS 

161 IF (AND (GEN(1, LINE ),MSK( 1* 1) ) .NE. AND ( GEN ( I , L INE- 1 ) , MSK ( 1 * 1 ) ) .OR.MA 
INOUT.EO.l.OR.KEND.GT.O) GO TO 162 

C LOGICAL STATEMENT FOLLOWS 

GOX = AND(GEN( 1*LINE)*MSK( 1, 1) ) 

C 

WRITE (6,202) GOX, (HEA03 (KPX ) ,KPX=1, 11 ) 

C 

162 WRITE (6,201) ( DASH, KPX= I, 22 ) , ( HE AD2 ( KPX ) , KPX=i , 1 1 ) , ( XLGND { KPX ) , KP 

1X=1,42) 

C 

GO TO 133 
C 

163 WRITE (6*201 ) ( DASH, KPX= 1, 2 2 ) * ( HEAD2 ( KPX ) * KPX=1 , 1 1 ) * ( XLGND ( KPX ) , KP 
1X=1 *42 ) 

C 

IF (KEND.LE.O) GO TO 164 

KEND=0 

GO TO 132 

164 KIX=6 
GEX1=0 
MAN=1 
MAN0UT=1 

BY-MAN CARDS (CARDS 19), AND FINAL PROGRAM DECK ASTERISK CARD(CARD 20) 
READ (5*203) MANL*XMAN(1) 


MAPS 

540 

MAPS 

541 

MAPS 

542 

MAPS 

543 

MAPS 

544 

MAPS 

545 

MAPS 

546 

MAPS 

547 

MAPS 

548 

MAPS 

549 

MAPS 

550 

MAPS 

551 

MAPS 

552 

MAPS 

553 

MAPS 

554 

MAPS 

555 

MAPS 

556 

MAPS 

557 

MAPS 

558 

MAPS 

559 

MAPS 

560 

MAPS 

561 

MAPS 

562 

MAPS 

563 

MAPS 

564 

MAPS 

565 

MAPS 

566 

MAPS 

567 

MAPS 

568 

MAPS 

569 

MAPS 

570 

MAPS 

571 

MAPS 

572 

MAPS 

573 

MAPS 

574 

MAPS 

575 

MAPS 

576 

MAPS 

577 

MAPS 

578 

MAPS 

579 

MAPS 

580 

MAPS 

581 

MAPS 

582 

MAPS 

583 

MAPS 

584 

MAPS 

585 

MAPS 

586 

MAPS 

587 

MAPS 

588 

MAPS 

589 

MAPS 

590 

MAPS 

591 

MAPS 

592 

MAPS 

593 

MAPS 

594 

MAPS 

595 

MAPS 

596 

MAPS 

597 

MAPS 

598 

MAPS 

599 
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c 

IF (KPJJNCH.GT.O) PUNCH 203. MANL.XMAN(l) 

C 

IF (MANL.NE.AST) GO TO 165 

IF (KTI.EO.l) KSA==1 
C 

IF (KSA.EQ.O) WRITE (6,204) BLANK 
C 

GO TO 101 

165 JMAN=1 

GO TO 132 
C 

c 

c 

166 FORMAT (13A6,A2) 

167 FORMAT { IX , 2 1A6, A5/1 14H0TH I S IS *MAPS-II* (MANAGEMENT ANALYSIS AND 

1 PLANNING SYSTEM). FOR USER INFORMATION SEE DON PACKE OR GIL RAFF 
2AELI./1X. A6) 

168 FORMAT ( 3 A2 , A 1 , A6 , 8X , A6 , 4X , A2 , 4A2 ) 

169 FORMAT ( 9X , 1 2HCONTROL CARD/1X.30H /IX 

1 ,7HC0LUMNS,5X,5HINPUT,6X.7H0PT10NS/1X,7H .5X.5H ,6X.7H — 

2 /AX,3H1,2,9X,A2,6X, 102HL0CATES THE VERTICAL ASTERISK CURSOR C 

30LUMN (01 THRU 66) IN THE SCHEDULE FIELD. BLANK ELIMINATES THE */6 
4XtlH4,9X,A2,6X,103HBLANK GIVES TOTAL LISTING. 0NE(1)GIVES TOTAL LI 
5STING + SUMMARY LISTING. /6X.1H6.9X 

6,A2,6X,92HBLANK GIVES SLASH(/) AND NEED DATE OVERPRINT IN THE SCHE 
7DULE FIELD. ONE (1) SUPPRESSES THEM.) 

170 FORMAT ( 6X , 1H7 . 5X. 5X , A 1 , 6X , 30HNEE0 DATE SYMBOL. BLANK GIVES ,A1,66 

IH. NON BLANK GIVES THE ACTUAL CHARACTER PUNCHED ON THE CONTROL CAR 
2D/3X.4H 8,5X,1H , A4 , IH ) , 6X , 84HT0 TAL LISTING MASK(MATCHED WITH CO 

3LUMNS 51 THRU 54 ON THE ID CARD). BLANK ASSUMES 2 . / 2X . 5H 10 , 1 1 , 9X , A 
42,6X,83HID FLAG COLUMN NUMBER (51-54) WHICH IS TO BE MATCHED WITH 
5MASKS. BLANK ASSUMES 51./2X,5H 22.5X.1H , A4 , IH ) , 6X, 87HSUMMARY L 

6ISTING MASK (MATCHED WITH COLUMNS 51 THRU 54 ON THE 10 CARD). BLAN 
7K ASSUMES 4. ) 

171 FORMAT (2X,5H32,33,5X,4X,A2,6X,87HSUPRESSeS THE PRINTING OF HIERAR 
ICHY NUMBERS THAT ARE EQUAL TO OR LESS THAN THIS NUMBER ./ 5X , 2H35 , 9X 
2,A2,6X,103HQNE(1) GIVES NEW PROGRAM DECK SORTED IN ORDER WITH THE 
3DATE PUNCHED ON THE • CARDS. BLANK GIVES NO DECK/5 X • 2H37 , 9X , A2 . 6 X , 
489HBLANK PERMITS THE PRINTING OF SUMMARY INFORMATION BETWEEN PROGR 
5AMS. ONEd) SUPPRESSES I T. / 5X, 2H41 , 9X, A2 ,6X , 93HBLANK PERMITS THE P 
6RINTING OF HIERARCHY ERROR MESSAGES WITHIN THE TEXT. ONE ( 1 ) SUPPRE 
7SSES IT.) 

172 FORMAT { 1 1 A6 / 1 1 A6/ 1 1 A6 ) 

173 FORMAT ( 1 3 A6 , A2/ 6A6, A4 , 6 A6 , A4/ I 3A6 , A2 ) 

174 FORMAT (12HOERROR CARDS) 

175 FORMAT ( A 1 , A 1 , A 5 , A4t A 1 , 5 A6 , A 1 , A6, A 1 . A4 , A 1 * A3 , A 1 , 3A6 , A 3 > 

176 FORMAT (39H THIS CARO IN ID DECK IS NOT ID FORMAT ( , A 1 , A1 . A5 . A4 , A 1 , 
I5A6,A1, A6, A1,A4, A1,A3,A1,3A6,A3,1H) ) 

177 FORMAT (54HOMORE THAN 1000 VALID ID CARDS — PROGRAM IGNORES EXCESS) 

178 FORMAT (Al) 

179 FORMAT (IH ) 

180 FORMAT ( 1 1 A6 , A2 , A 1 , A 5 , A4 , A 2 ) 

181 FORMAT (39H NO ID CARD FOR THIS SCHEDULE CARD ( 11 A6 • A2, Al , A5 , A4 
1,A2.1H) ) 

182 FORMAT ( A5 • A4 , A5 , A3. A 5 . 9 A6 . A4 ) 

183 FORMAT (39H NO ID CARO FOR THIS STATUS CARD ( , A5 , A4 , A5 , A3 , A5 , 

19A6. A4, IH) ) 

184 FORMAT (36H0N0 ERROR CARDS IN FOLLOWING PROGRAM/IH Al) 

185 FORMAT ( 24HLRESP0NSI BLE PERSON L I ST/ ( 15 ( IX . A6 ) ) ) 


MAPS 

600 

MAPS 

601 

MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 
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MAPS 

626 

MAPS 

627 

MAPS 

628 

MAPS 

629 

MAPS 

630 

MAPS 

631 

MAPS 

632 

MAPS 

633 

MAPS 

634 

MAPS 

635 

MAPS 

636 

MAPS 

637 

MAPS 

638 

MAPS 

639 

MAPS 

640 

MAPS 

641 

MAPS 

642 

MAPS 

643 

MAPS 

644 

MAPS 

645 

MAPS 

646 

MAPS 

647 

MAPS 

648 

MAPS 

649 

MAPS 

650 

MAPS 

651 

MAPS 

652 

MAPS 

653 

MAPS 

654 

MAPS 

655 

MAPS 

656 

MAPS 

657 

MAPS 

658 

MAPS 

659 
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186 

FORMAT 

(1HL,I4.40H VALID ID CARDS READ — PROGRAM MAX =1000 ) 

MAPS 

660 

187 

FORMAT 

(1H0,I5,17H HIERARCHY ERRORS! 

MAPS 

661 

188 

FORMAT 

(1H1/1X.13A6.A2) 

MAPS 

662 

189 

FORMAT 

(31HORESPONSIBILITY BY MAN FOR *** ,A6t4H ***,6X,8HMASK = 

MAPS 

663 


1,A4,1H) ) 

MAPS 

664 

190 

FORMAT 

(IIHOHIERARCHY , 38X, 1 1A6. lOX , 7H. P ERSON/ 8H NUMBER * 13X • 1 IHDE 

MAPS 

665 


1SCRIPTI0N,17X,11A6,17H COMMENT •RSPBLE/IH ,2lA6,A5) 

MAPS 

666 

191 

FORMAT 

(2(49X,11A6/) ,6X,6A6,7X,llA6/9X,5A6,10Xf llA6/6X,6A6,7Xf 11A6 

MAPS 

667 


1) 


MAPS 

668 

192 

FORMAT 

(lXt8X,17H*HIERARCHY ERROR*,/) 

MAPS 

669 

193 

FORMAT 

(49X, 11A6/49X, 11A6) 

MAPS 

670 

194 

FORMAT 

(1X,A2,2X,5A6, 14X , 1 1A6, A4, A6, IX , A6 ) 

MAPS 

671 

195 

FORMAT 

(5X.5A6,14X,11A6) 

MAPS 

672 

196 

FORMAT 

(1X,A3,3X,5A6, 12X.11A6,A4,A6,1X,A6) 

MAPS 

673 

197 

FORMAT 

(lX,A5,4X,5A6f 9X, 11 A6 , A4, A6, IX, A6 ) 

MAPS 

674 

198 

FORMAT 

( 1X,A5,A1,6X, 5A6.6X, 11A6,A4,A6,1X,A6> 

MAPS 

675 

199 

FORMAT 

( 1X,A5,A3,7X,5A6, 3X , 1 1A6, A4, A6, 1 X , A6) 

MAPS 

676 

200 

FORMAT 

(1X,A5,A4,9X,5A6, 11 A6 , A4, A6, IX, A6 ) 

MAPS 

677 

201 

FORMAT 

(1X,21A6,A5/49X,11A6/10H0LE6EN0. , 13A6 , A2 , 6A6, A4/10H 

MAPS 

678 


1.. ,6A6,A4, 13A6,A2» 

MAPS 

679 

202 

FORMAT 

(7H (ITEM ,A2,21H CONTINUED NEXT PAGE ) , 19X , 1 1 A6 ) 

MAPS 

680 

203 

FORMAT 

(A6,1X,A6) 

MAPS 

681 

204 

FORMAT 

( IHl, Al) 

MAPS 

682 


END 


MAPS 

683 


$IBMAP 

DATE 

DECK 

DATE 

1 


ENTRY 

DATE 

DATE 

2 

DATE 

SAVE 

4 

DATE 

3 


DLD 

• JDATE+1 

DATE 

4 


DST* 

3,4 

DATE 

5 


RETURN 

DATE 

DATE 

6 


END 


DATF 

7 
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$IBFTC 

FLAG DECK 

FLAG 

1 


SUBROUTINE FLAG ( MAI NL , MASUM , MANL , CODE , L INE , MANOUT , KENO , KGT , KSET ) 

FLAG 

2 

C 


FLAG 

3 

C THE 

FLAG SUBROUTINE IS USED FOR THE SELECTIVE PRINTOUT OPTIONS OF 

FLAG 

4 

C HAPS 

. THE SUBROUTINE IS ORGANIZED INTO THREE MAIN SECTIONS. 

FLAG 

5 

C THE 

FIRST ASSIGNS THE TOTAL AND SUMMARY LISTING MASKS, AND THE ID CARD 

FLAG 

6 

C FLAG 

COLUMN. THE SECOND SECTION ASSIGNS THE BY-MAN MASK. 

FLAG 

7 

C THE 

THIRD SELECTS ITEMS TO BE PRINTED ACCORDING TO THE LISTING BEING 

FLAG 

8 

C PROCESSED. 

FLAG 

9 

C 


FLAG 

10 


DATA SL,TMS/6H0( 0000, 0000000000077/ 

FLAG 

11 


DATA BLANK, ONE, TWO, FOUR, (F(J),J=1,A) ,ZERO/6HOOOO , 6H000001 , 6H0000 

FLAG 

12 

102,6H000004f 6H000051 t 6H0 00052, 6H000053, 6H00005^ , 6H000000/ 

FLAG 

13 


DIMENSION CODEC 1), F(4) 

FLAG 

14 


REAL MAINL»MASUM»MANL 

FLAG 

15 

c 


FLAG 

16 


IF (KSET.EQ.3) GO TO 304 

FLAG 

17 


IF (KSET.EQ.2) GO TO 303 

FLAG 

18 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

19 


TMSK1=ARS(30,MAINL) 

FLAG 

20 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

21 


TMSK2=ARS(30, MASUM) 

FLAG 

22 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

23 


FLGCL=ARS ( 24, ALS ( 12, MA INL ) ) 

FLAG 

24 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

25 


IF (TMSKl.EO. ARS(6,BLANK ) ) TMSK1=TW0 

FLAG 

26 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

27 


IF (TMSK2.EQ.ARS (6,BLANK ) ) TMSK2=F0UR 

FLAG 

28 


IF (FLGCL.EQ. BLANK) FLGCL=F(1) 

FLAG 

,29 


DO 301 K=l,4 

FLAG 

30 

301 

IF (FLGCL.EQ.F(K) ) GO TO 302 

FLAG 

31 


K=1 

FLAG 

32 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

33 

302 

MAINL=0R( SL,OR( ALSt30,TMSKl ) ,ALS( 12.F(K) ) ) ) 

FLAG 

34 

C 

LOGICAL STATEMENT FOLLOWS 

FLAG 

35 


MASUM=DR{ SL,0R(ALS(30,TMSK2) ,ALS(12,F{Km) 

FLAG 

36 


L=36-6*K 

FLAG 

37 

C 

LOGICAL STATEMENT FOLLOWS 

FLAG 

38 


TMSKl=ALStL,TMSKl) 

FLAG 

39 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

40 


TMSK2=ALS(L,TMSK2) 

FLAG 

41 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

42 


BNK^ALS (L, ARS (6, BLANK ) ) 

FLAG 

43 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

44 


TMX=ALS(L,TMS) 

FLAG 

45 


RETURN 

FLAG 

46 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

47 

303 

TMSK3=ARS(30,MANL) 

FLAG 

48 

C 

LOGICAL STATEMENT FOLLOWS 

FLAG 

49 


IF ( TMSK3.EQ.ARS ( 6.BLANK ) ) TMSK3=0NE 

FLAG 

50 

C 

LOGICAL STATEMENT FOLLOWS 

FLAG 

51 


MANL=DRt SL,OR( ALSC30, TMSK3) , ALS(12,F(K)))) 

FLAG 

52 

C 

LOGICAL STATEMENT FOLLOWS 

FLAG 

53 


TMSK3=ALS(L,TMSK3) 

FLAG 

54 


RETURN 

FLAG 

55 

c 

LOGICAL STATEMENT FOLLOWS 

FLAG 

56 

304 

TEMP=AND ( CODE 1 LINE ), TMX) 

FLAG 

57 

C 

LOGICAL STATEMENT FOLLOWS 

FLAG 

58 


IF (KEND.GT.O.AND. ( T E M P . EO . BNK . OR . AND ( T EMP , TMS K2 ) . EQ . ZERO ) ) GO TO 

FLAG 

59 


31 



1306 



FLAG 

60 


IF (KEND.GT.O) GO TO 305 



FLAG 

61 

c 

LOGICAL STATEMENT FOLLOWS 



FLAG 

62 


IF ( MANOUT. EQ. 0. AND. TEMP. NE.BNK. AND. AND! TEMP, TMSKD.EQ. ZERO) 

GO 

TO 

FLAG 

63 


1 306 



FLAG 

64 

c 

LOGICAL STATEMENT FOLLOWS 



FLAG 

65 


IF ( MANOUT.EQ.l. AND. TEMP.NE.BNK. AND. AND! TEMP, TMSK3 ) .EQ. ZERO) 

GO 

TO 

FLAG 

66 


1 306 



FLAG 

67 

305 

KGT = 2 



FLAG 

68 


RETURN 



FLAG 

69 

306 

KGT = 1 



FLAG 

70 


RETURN 



FLAG 

71 


END 



FLAG 

72 
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$IBFTC SORTER DECK 





SORTE 

1 


SUBROUTINE SORTER (KXM) 





SORTE 

2 

C 






SORTE 

3 

C SUBROUTINE SORTER SORTS IN 

ORDER BY RIPPLING 

THROUGH THE DECK IN 

SORTE 

4 

C BOTH DIRECTIONS AND EXCHANGING ADJACENT 

CARDS 

IF THEY 

ARE OUT 

SORTE 

5 

C OF 

ORDER 





SORTE 

6 

C 






SORTE 

7 


DATA ASKl, ASK2,ZERO/6HOOCOO ,6H0000 

,60000000/ 


SORTE 

8 


COMMON N,GEN,SKED,H.K1, 

TITLE, PERStX, 

WKStSTAT, IXT 


SORTE 

9 


DIMENSION GEN12,1000), T ITLE ( 5 , 1000 ) , 

SKEDdl, 1000) 

, WKSUOOO), ST 

SORTE 

10 


lATdtlOOO), PERS(1000)t 

X( 1000), IXT(IOOI) 



SORTE 

11 


DIMENSION TEMP(6), I TST ( 11 , 1000 ) 




SORTE 

12 


EQUIVALENCE (ITST.SKED) 





SORTE 

13 

C 






SORTE 

14 

C 






SORTE 

15 


DO 403 J=1,N 





SORTE 

16 

c 

LOGICAL STATEMENT 

FOLLOWS 




SORTE 

17 


TEMPI! )=ARS(24,GEN(lt J )) 





SORTE 

18 

c 

LOGICAL STATEMENT 

FOLLOWS 




SORTE 

19 


TEMP(4)=ARS(30,ALS(12,GEN( 1, J) ) ) 




SORTE 

20 

c 

LOGICAL STATEMENT 

FOLLOWS 




SORTE 

21 


TEMP(2)=ARS(24,ALS(18,GEN( 1, J) ) ) 




SORTE 

22 

c 

LOGICAL STATEMENT 

FOLLOWS 




SORTE 

23 


TEMP(5) = ARS( 30,GEN(2, J » ) 





SORTE 

24 

c 

LOGICAL STATEMENT 

FOLLOWS 




SORTE 

25 


TEMP(3) = ARS(24tALS{6,GEN(2,J ) ) ) 




SORTE 

26 

c 

LOGICAL STATEMENT 

FOLLOWS 




SORTE 

27 


TEMP(6)=ARS(30,ALS(18,GEN(2, J) M 




SORTE 

28 


DO 401 K=l,3 





SORTE 

29 


IF (TEMP(K).EQ.ASK2) T£MP(K)=ZERO 




SORTE 

30 

401 

CONTINUE 





SORTE 

31 


DO 402 K=4,6 





SORTE 

32 


IF (TEMP(K).EO.ASKl) TEMP(K)=ZERO 




SORTF 

33 

402 

CONTINUE 





SORTE 

34 

C 

LOGICAL STATEMENT 

FOLLOWS 




SORTE 

35 


SKEDtl,J)=0RtALS(12,0R(ALS(6,TEMP( X) ) 

,TEMP(4)) »,TEMP{2) ) 

SORTE 

36 

C 

LOGICAL STATEMENT 

FOLLOWS 




SORTE 

37 

403 

SKEDI2, J)=OR( ALS(6tORIALS( 12,TEMP( 5) ) 

,TEMP(3))),TEMP(6)) 

SORTE 

38 


KXX=1 





SORTE 

39 


N1=N-1 





SORTE 

40 

404 

DO 411 JY=1,2 





SORTE 

41 


KOUNT=D 





SORTE 

42 


DO 410 JX=1,N1 





SORTE 

43 


J = JX 





SORTE 

44 


IF (JY.EQ.2) J=N-JX 





SORTE 

45 


IF ( ITST( 1. J + D-ITST ( It J ) ) 406,405,410 



SORTE 

46 

405 

IF (ITST(2,J+1)-ITST(2,J)) 406,410,410 



SORTE 

47 

406 

TEMP1=GEN( 1, J+1) 





SORTE 

48 


TEMP2=GEN(2, J+1) 





SORTE 

49 


DO 407 Jl=l,5 





SORTE 

50 

407 

TEMPUl )=TITLE( Jl, J+1 ) 





SORTE 

51 


TEMP3=PERSU + 1) 





SORTE 

52 


TEMP4=X(J+1) 





SORTE 

53 


TEMP5=SKED( 1, J+1) 





SORTE 

54 


TFMP6=SK6D(2, J+1 ) 





SORTF 

55 


TEMP7=STATU,J + 1) 





SORTE 

56 


TEMP8=WKS( J+1) 





SORTE 

57 


ITMP=IXTl J+1 ) 





SORTE 

58 


GENII, J+1)=GEN(1,J) 





SORTE 

59 
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408 


409 


410 


411 


GEN(2* J+l)=GEN(2f J) 

SORTE 

60 

DO 408 Jl=lf5 

SORTE 

61 

TITLE( Jl, J+1)=TITLE( Jit J ) 

SORTE 

62 

PERS(J+1)=PERS( J) 

SORTE 

63 

XIJ+L)=X( J) 

SORTE 

64 

SKEOdt J+1)=SKED(1,J) 

SORTE 

65 

SKED(2,J + l) = SKED(2f J ) 

SORTE 

66 

STAT(1,J+1)=STAT(1,J) 

SORTE 

67 

WK5( J+1)=WKS( J) 

SORTE 

68 

IXT( J+1)=IXT(J) 

SORTE 

69 

GEN(1,J)=TEMP1 

SORTE 

70 

GEN(2, J)=TEMP2 

SORTE 

71 

DO 409 Jl=l,5 

SORTE 

72 

TITLEt J1,J)=TEMP( Jl) 

SORTE 

73 

PERS( J )=TEMP3 

SORTE 

74 

X( J)=TEMP4 

SORTE 

75 

SKEDd, J)=TEMP5 

SORTE 

76 

SKED(2t J)=TEMP6 

SORTE 

77 

STATd, J)=TEMP7 

SORTE 

78 

WKS( J)=TEMP8 

SORTE 

79 

IXT( J)=ITMP 

SORTE 

80 

K0UNT=1 

SORTE 

81 

CONTINUE 

SORTE 

82 

IF { KOUNT.EQ.O) RETURN 

SORTE 

83 

KXX=KXX+1 

SORTE 

84 

IF (KXX.GE.N) RETURN 

SORTE 

85 

CONTINUE 

SORTE 

86 

GO TO 404 

SORTE 

87 

END 

SORTE 

88 
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SIBFTC 

CHECK DECK 

CHECK 

1 


SUBROUTINE CHECK (KZX) 

CHECK 

2 

C 


CHECK 

3 

C SUBROUTINE CHECK CHECKS THE SORTED ID DECK FOR HIERARCHY ERRORS 

CHECK 

4 

c 


CHECK 

5 


DATA IN/0000000000001/ 

CHECK 

6 


DATA LKBl/0000000006060/ tLKB2/0000000000060/ 

CHECK 

7 


DIMENSION GEN12,1000), SCH ( 1 1, 1000 I , TAG(lOOl) 

CHECK 

8 


EQUIVALENCE ( SCH (1, 1) ,TAG( 1 )» t (XIN.IN) 

CHECK 

9 


COMMON NUMBER, GEN, SCH, L I NE.KOLUMN 

CHECK 

10 


INTEGER TAG 

CHECK 

11 

c 


CHECK 

12 

c 


CHECK 

13 


KZX=0 

CHECK 

14 


DO 522 JCTR=1,5 

CHECK 

15 


DO 509 KCTR=1, NUMBER 

CHECK 

16 


GO TO (501, 501, 501, 502, 502), JCTR 

CHECK 

17 

c 

LOGICAL STATEMENT FOLLOWS 

CHECK 

18 

501 

LT=IARS(6,GEN( 1,KCTR) ) 

CHECK 

19 


GO TO (503,504,505,505,505), JCTR 

CHECK 

20 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

21 

502 

LT=IARS(12,GEN(2,KCTR) ) 

CHECK 

22 


GO TO (506, 506, 506, 506, 507), JCTR 

CHECK 

23 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

24 

503 

TAG(KCTR)=IARS( 18.LT ) 

CHECK 

25 


GO TO 508 

CHECK 

26 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

27 

50A 

TAG(KCTR)=IARS(30, IALS(30, 1ARS( 12.LT) ) ) 

CHECK 

28 


GO TO 508 

CHECK 

29 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

30 

505 

TAG(KCTR) = IARS(24, IALS(24, LT) ) 

CHECK 

31 


GO TO 508 

CHECK 

32 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

33 

506 

TAG(KCTR) = IARS( 18.LT ) 

CHECK 

34 


GO TO 508 

CHECK 

35 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

36 

507 

TAG(KCTR)=IARS(24, IALS(24, IARS(6,LT) ) ) 

CHECK 

37 

508 

CONTINUE 

CHECK 

38 

509 

CONTINUE 

CHECK 

39 


DO 510 LCTR=1, NUMBER 

CHECK 

40 


IF (TAG(LCTR).EQ.LKB1.0R.TAG(LCTR).EO.LKB2) GO TO 510 

CHECK 

41 


GO TO 511 

CHECK 

42 

510 

CONTINUE 

CHECK 

43 

511 

CONTINUE 

CHECK 

44 

512 

IW = 0 

CHECK 

45 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

46 


L=IARS(6,GEN( 1,LCTR) ) 

CHECK 

47 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

48 


M=IARS(12,GEN(2,LCTR) ) 

CHECK 

49 


GO TO (513,514,515,516,517) , JCTR 

CHECK 

50 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

51 

513 

JC=I ARS(30, 1 ALS(30,I ARS( 12,L) ) ) 

CHECK 

52 


IF ( JC.EQ.LKB1.OR.JC.E0.LKB2) GO TO 514 

CHECK 

53 


IW=1 

CHECK 

54 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

55 

514 

JC=IARS(24,IALS(24,L) ) 

CHECK 

56 


IF ( JC.EO.LKBl.OR. JC.EQ.LKB2) GO TO 515 

CHECK 

57 


1W=1 

CHECK 

58 

C 

LOGICAL STATEMENT FOLLOWS 

CHECK 

59 
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515 

JC=IARSa8,M) 


CHECK 

60 


IF (JC.EQ.LKB1.0R.JC.6Q.LKB2) GO TO 

516 

CHECK 

61 


IW=1 


CHECK 

62 

C 

LOGICAL STATEMENT FOLLOWS 


CHECK 

63 

516 

JC=IARSI24,IALS(24,IARS(6,M) )) 


CHECK 

6A 


IF (JC.EQ.LKBl.0R.JC.EQ.LKB2) GO TO 

517 

CHECK 

65 


IW=1 


CHECK 

66 

C 

LOGICAL STATEMENT FOLLOWS 


CHECK 

67 

517 

JC=IARS(30,IALS(30,M) 1 


CHECK 

68 


IF ( JC.EQ.LKB1.0R.JC.EQ.LKB2) GO TO 

518 

CHECK 

69 


IW=1 


CHECK 

70 

518 

CONTINUE 


CHECK 

71 

C 

LOGICAL STATEMENT FOLLOWS 


CHECK 

72 


IF (IW.EQ.l) GEN(1,LCTR)=0R(GEN{1,LCTR),IN) 

CHECK 

73 


IF (LCTR.EO. NUMBER) GO TO 522 


CHECK 

74 


J=LCTR+1 


CHECK 

75 

519 

IF (TAG(LCTR)-TAG(J) ) 521,520,521 


CHECK 

76 

520 

IF (J.EO. NUMBER) GO TO 522 


CHECK 

77 


J = J + 1 


CHECK 

78 


GO TO 519 


CHECK 

79 

521 

LCTR=J 


CHECK 

80 


GO TO 512 


CHECK 

81 

522 

CONTINUE 


CHECK 

82 


DO 523 JX=1, NUMBER 


CHECK 

83 

C 

LOGICAL STATEMENT FOLLOWS 


CHECK 

84 

523 

IF { AND(GENI 1, JX), IN ) .EQ.XIN ) KZX=KZX+1 

CHECK 

85 


RETURN 


CHECK 

86 


END 


CHECK 

87 
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oooooo noon 


$IBFTC RUNOUT DECK 

SUBROUTINE RUNOUT 

THE RUNOUT SUBROUTINE PUNCHES A NEW DATA DECK INCLUDING lOtSCHEDULE, 
AND STATUS CARDS 

DATA BLK/6H 0000/ 

DATA AST,PER/6H*0OO0O,6H.OO00O/ 

DATA BLANK/IH / 

DATA TAST/6H *00/ 

DATA TXQ/0000000000002/ 

COMMON Nf GEN tSKEO, LI .Kl, TITLE fRERS,X,WKS,STAT 
DIMENSION TEMP(66), DA(2) 

DIMENSION GEN(2,1000), T ITLE ( 5 • 1000 ) , SKED ( 1 1 t 1000 ) , WKS(1000)t ST 
1AT(1,1000), PERS(IOOO). XIIOOO) 


SUBROUTINE DATE IS USED TO EXTRACT THE PROGRAM RUN DATE FROM 
THE COMPUTER CLOCK. AT LEWIS IT IS WRITTEN IN IBM MAP LANGUAGE. 

IT COMPOSES AN EIGHT CHARACTER DATE (E.G. 11/24/71 ) INTO TWO 
HOLLERITH WORDS. 

CALL DATE (DA) 

DO 601 J=1*N 
C 

601 PUNCH 610, GEN(ltJ)»GeN(2* J),(TITLE(K*J),K=1,5),PERS(J).X(J) 

C 

PUNCH 609, DA 
C 

DO 606 J=1,N 

C LOGICAL STATEMENT FOLLOWS 

IF {AND(GEN(I,J),TXQ).NE.TXO) GO TO 606 

DO 602 M=l,ll 

JM=6*M-5 

C LOGICAL STATEMENT FOLLOWS 

TEMPI JM)=ALS( 30, ARS( 30 , SKEO ( M , J ) ) ) 

C LOGICAL STATEMENT FOLLOWS 

TEMP( JM+l)=ALS(30, ARS(24.SKED(M, J) ) ) 

C LOGICAL STATEMENT FOLLOWS 

TEMP( JM + 2)=ALS(30,ARS( 18,SKED(M,J) ) ) 

C LOGICAL STATEMENT FOLLOWS 

TEMP( JM+3)=ALS(30. ARS ( 12.SKfcD(M, J) ) ) 

C LOGICAL STATEMENT FOLLOWS 

TEMP(JM+4) = ALS(30,ARS(6,SKED(M, J) ) ) 

C LOGICAL STATEMENT FOLLOWS 

602 TEMPI JM+5)=ALS(30,SKEDtM,J) ) 

DO 603 M=l,66 

IF (TEMPI M) .EQ. AST) T EMP ( M ) =BL ANK 

603 CONTINUE 

C LOGICAL STATEMENT FOLLOWS 

TM=ALS(24,X( J) ) 

DO 604 M=l,66 

IF (TEMP(M).NE. BLANK. AND. TEMP(M).NE. AST. AND. TEMP(M).NE. PER) GO TO 
1605 

604 CONTINUE 

IF (TM.NE.BLK) GO TO 605 
GO TO 606 
C 

605 PUNCH 611* (TEMP(M)*M=1,66). TM,GEN(1, J) ,GEN( 2, J) 

C 


PUNOU 

1 

PUNOU 

2 

PUNOU 

3 

PUNOU 

4 

PUNOU 

5 

PUNOU 

6 

PUNOU 

7 

PUNOU 

8 

PUNOU 

9 

PUNOU 

10 

PUNOU 

11 

PUNOU 

12 

PUNOU 

13 

PUNOU 

14 

PUNOU 

15 

PUNOU 

16 

PUNOU 

17 

PUNOU 

18 

PUNOU 

19 

PUNOU 

20 

PUNOU 

21 

PUNOU 

22 

PUNOU 

23 

PUNOU 

24 

PUNOU 

25 

PUNOU 

26 

PUNOU 

27 

PUNOU 

28 

PUNOU 

29 

PUNOU 

30 

PUNOU 

31 

PUNOU 

32 

PUNOU 

33 

PUNOU 

34 

PUNOU 

35 

PUNOU 

36 

PUNOU 

37 

PUNOU 

38 

PUNOU 

39 

PUNOU 

40 

PUNOU 

41 

PUNOU 

42 

PUNOU 

43 

PUNOU 

44 

PUNOU 

45 

PUNOU 

46 

PUNOU 

47 

PUNOU 

48 

PUNOU 

49 

PUNOU 

50 

PUNOU 

51 

PUNOU 

52 

PUNOU 

53 

PUNOU 

54 

PUNOU 

55 

PUNOU 

56 

PUNOU 

57 

PUNOU 

58 

PUNOU 

59 
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606 CONTINje 
C 

PUNCH 608 
C 

PUNCH 609, OA 
C 

DO 607 J=1,N 

IF ((WKS(J).EQ. BLANK. OR. WKS.EO.TAST),AND. STATU, J).EQ. BLANK) GO TO 
I 607 
C 

PUNCH 612, GEN(1,J),GEN(2,J),WKS{J), STATU, J) 

C 

607 CONTINUE 
C 

PUNCH 608 
C 

PUNCH 609, DA 
C 

RETURN 


608 

FORMAT 

( IH/ ) 


609 

format 

tlH»,5X,A6,A2f 11H=PUNCH 

DATE) 

610 

FORMAT 

(IHS. 1X,A5,A4, IX, 5A6, IX, 

A6, IX, A4) 

611 

FORMAT 

(66A1 ,A2, 1X.A5, A4 ) 


612 

FORMAT 

END 

( A5,AA,5X,A3,5X,A6) 



PUNOU 

60 

PUNOU 

61 

PUNOU 

62 

PUNOU 

63 

PUNOU 

6A. 

PUNOU 

65 

PUNOU 

66 

PUNOU 

67 

PUNOU 

68 

PUNOU 

69 

PUNOU 

70 

PUNOU 

71 

PUNOU 

72 

PUNOU 

73 

PUNOU 

74 

PUNOU 

75 

PUNOU 

76 

PUNOU 

77 

PUNOU 

78 

PUNOU 

79 

PUNOU 

80 

PUNOU 

81 

PUNOU 

82 

PUNOU 

83 

PUNOU 

84 

PUNOU 

85 

PUNOU 

86 

PUNOU 

87 
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SIBFTC PICK DECK 

PICK 

1 


SUBROUTINE PICK (GEN, CODE, N) 

PICK 

2 

c 


PICK 

3 

c 

SUBROUTINE PICK SELECTS ALL ID CARDS WITH A NON BLANK MASK IN 

PICK 

4 

c 

COLUMNS 51-54 

PICK 

5 

c 


PICK 

6 


DATA 8NX/0777777770000/ 

PICK 

7 


DATA BLANK, BNK/IH ,6H 00/ 

PICK 

8 


DIMENSION GEN(l), COOEtl), X(3,8) 

PICK 

9 

c 


PICK 

10 


WRITE (6,704) 

PICK 

11 

c 


PICK 

12 


DO 701 MX=1,3 

PICK 

13 


DO 701 MY=1,8 

PICK 

14 

701 

X(MX.MV)=BLANK 

PICK 

15 


MX=1 

PICK 

16 


DO 703 J=1,N 

PICK 

17 

C 

LOGICAL STATEMENT FOLLOWS 

PICK 

18 


IF ( AND(CODE ( J ) ,BNX) .EQ.BNK) GO TO 703 

PICK 

19 


X(1,HX)=GEN(2*J-1) 

PICK 

20 


X(2,MX)=GEN(2*J) 

PICK 

21 


X(3,MX)=C0DE(J) 

PICK 

22 


MX=MX+1 

PICK 

23 


IF (MX.LT.9) GO TO 703 

PICK 

24 

C 


PICK 

25 


WRITE (6,705) ( ( X ( J1 , J 2 ) , J 1= 1 , 3 ) , J2=l , 8 ) 

PICK 

26 

c 


PICK 

27 


DO 702 MX=1,3 

PICK 

28 


DO 702 MY=1,8 

PICK 

29 

702 

X(MX.MY)=BLANK 

PICK 

30 


MX=1 

PICK 

31 

703 

CONTINUE 

PICK 

32 

C 


PICK 

33 


WRITE (6,705) ( ( X ( J1 , J2 ) , J 1= 1 , 3 ) , J2=l , 8 ) 

PICK 

34 

C 


PICK 

35 


RETURN 

PICK 

36 

C 


PICK 

37 

C 


PICK 

38 

C 


PICK 

39 

704 

FORMAT (52HLTHE FOLLOWING ID CARDS HAVE A FLAG IN COLUMNS 51-54) 

PICK 

40 

705 

FORMAT ( 3X,8 ( 1H( , A5, A4, 1H*,A4, IH) ) ) 

PICK 

41 


END 

PICK 

42 
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SIBFTC OPKIMT DECK 

SUBROUTINE OPRINT ( STATUS* NEX I T ) 

C 

C SUBROUTINE OPRINT FORMS THE SLASH AND NEED^DATE LINE FOR OVERPRINTING 
C STATUS ON THE SCHEDULE. THE SLASH WILL NOT OVERPRINT THE SYMBOLS 
C OOT(.)*ASTERISK(*)»MlNUS(-),AND ZERO(O) 

C 

DATA IZB/0000000000060/* IAST/0000000000054/ * IPO/0000000000033/ 

DATA IZQ/6H0000 / 

DATA CAS/0000000007777/ 

DATA IM/0000000000040/, I A/0000000000020/ 

DATA IBLK/0600000000000/*ISS/6H/ / 

DATA (ONI J)* J=l* 10 )/0000000000000* 0000000000001, 0000000000002, 0000 
1000003003,0000000000004,0000000000005,0000000000006*0000000000007, 
20000000000010 , 0000000000011 / 

DATA IDASH/6H00000-/ 

INTEGER ON 
INTEGER SCH 

DIMENSION ON(ll), NEXIT(2) 

DIMENSION DUMMY(6000), CODEC 1000) 

DIMENSION SCHdl* 1000) , GEN( 2*1000). JSI6), IP(66), IZ(66) 

COMMON NUMBER,GEN,SCH,LINE,KOLUMN 
COMMON DUMMY, CODE 
EQUIVALENCE (XCD,KXCO) 

C 

CN( 11)=0N( 1) 

IF (NEXIT(l).GT.O) RETURN 
DO 801 NCT=1,66 

801 IZ(NCT)=IBLK 
KOUNT=0 

C LOGICAL STATEMENT FOLLOWS 

IS=IARS(30, STATUS) 

C LOGICAL STATEMENT FOLLOWS 

IT=IARS(24, IALS(6,STATUS ) ) 

C LOGICAL STATEMENT FOLLOWS 

IU=IARS(6, IT) 

C LOGICAL STATEMENT FOLLOWS 

IW=IARS(30,IALS(30,IT) ) 

IF (IS.EQ.IZB.AND.IW.EQ.IZB.AND.IU.EQ.IZB) GO TO 805 

DO 802 JCT=1,11 

IV=CN( JCT )-IU 

IF ( IV.EO.O) GO TO 803 

802 CONTINUE 
GO TO 319 

803 JCT=JCT-l 

DO 804 KCT=1,11 
IV=ON( KCT )-I W 
IF (IV.EO.O) GO TO 805 

804 CONTINUE 
GO TO 819 

805 KCT=KCT-l 
ISL=KCT+10*JCT 
MCT = 0 

DO 807 LCT=1,11 
IW=SCH(LCT,LINE) 

C LOGICAL STATEMENT FOLLOWS 

JS(1)=IARS(30,IW) 

C LOGICAL STATEMENT FOLLOWS 

JS(2) = IARS(30, IALS(6, IW) ) 


OPRIN 1 
OPRIN 2 
OPRIN 3 
OPRIN 4 
OPRIN 5 
OPRIN 6 
OPRIN 7 
OPRIN 8 
OPRIN 9 
OPRIN 10 
OPRIN 11 
OPRIN 12 
OPRIN 13 
OPRIN 14 
OPRIN 15 
OPRIN 16 
OPRIN 17 
OPRIN 18 
OPRIN 19 
OPRIN 20 
OPRIN 21 
OPRIN 22 
OPRIN 23 
OPRIN 24 
OPRIN 25 
OPRIN 26 
OPRIN 27 
OPRIN 28 
OPRIN 29 
OPRIN 30 
OPRIN 31 
OPRIN 32 
OPRIN 33 
OPRIN 34 
OPRIN 35 
OPRIN 36 
OPRIN 37 
OPRIN 38 
OPRIN 39 
OPRIN 40 
OPRIN 41 
OPRIN 42 
OPRIN 43 
OPRIN 44 
OPRIN 45 
OPRIN 46 
OPRIN 47 
OPRIN 48 
OPRIN 49 
OPRIN 50 
OPRIN 5.1 
OPRIN 52 
OPRIN 53 
OPRIN 54 
OPRIN 55 
OPRIN 56 
OPRIN 57 
OPRIN 58 
OPRIN 59 
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c 

LOGICAL STATEMENT FOLLOWS 

OPRIN 

60 


JS( 3)=IARS(30, IALS(12. iwn 

OPRIN 

61 

c 

LOGICAL STATEMENT FOLLOWS 

OPRIN 

62 


JS«4)=IARS(30,IALS(18, IW ) ) 

OPRIN 

63 

c 

LOGICAL STATEMENT FOLLOWS 

OPRIN 

64 


JS(5)=IARS(30, IALS(24, IW)) 

OPRIN 

65 

c 

LOGICAL STATEMENT FOLLOWS 

OPRIN 

66 


JS(6)=I ARS(30, IALS(30, IW)) 

OPRIN 

67 


DO 306 NCT=1,6 

OPRIN 

68 


IF ( JS(NCT).EQ.IZB.OR.JS(NCT).EQ.IAST.OR.JSCNCT).EQ. I DASH) JS(NCT) 

OPRIN 

69 


1=0 

OPRIN 

70 

806 

CONTINUE 

OPRIN 

71 


IP(MCT4^1)=JS(1) 

OPRIN 

72 


IP(MCTV2)=JS(2) 

OPRIN 

73 


IP(MCT+3)=JS(3) 

OPRIN 

74 


IPIMCT+4>=JSI4) 

OPRIN 

75 


IP(MCT+5)=JS(5) 

OPRIN 

76 


IP(«CT4^6)=JS(6) 

OPRIN 

77 


MCT=MCT+6 

OPRIN 

78 

807 

CONTINUE 

OPRIN 

79 


IF ( IS.EO. IZB) GO TO 814 

OPRIN 

80 


IF (IS-IM) 809,808,809 

OPRIN 

81 

808 

INCR=-1 

OPRIN 

82 


GO TO 811 

OPRIN 

83 

809 

IF (IS-IA) 819,810,819 

OPRIN 

84 

810 

INCR=1 

OPRIN 

85 

8U 

CONTINUE 

OPRIN 

86 


IF (ISL.EQ.O) INCR=1 

OPRIN 

87 


J J=KOLUMN 

OPRIN 

88 


JK=K0LUMN+INCR*ISL+1 

OPRIN 

89 


IPOS=0 

OPRIN 

90 

812 

IF ( IP( JJ) .EQ. IPO) IPDS=IPDS + 1 

OPRIN 

91 


IF (JJ.EQ.JK) GO TO 813 

OPRIN 

92 


J J = JJ4-INCR 

OPRIN 

93 


GO TO 812 

OPRIN 

94 

813 

ISL=ISL+IPDS 

OPRIN 

95 

814 

CONTINUE 

OPRIN 

96 


IF (IS.EO. 16) GO TO 815 

OPRIN 

97 


IF ( IS.EO. 32) GO TO 816 

OPRIN 

98 


NEWC0L=KDLUMN-1 

OPRIN 

99 


GO TO 817 

OPRIN 

100 

815 

NEWC0L=K0LUMN+ISL-1 

OPRIN 

101 


GO TO 817 

OPRIN 

102 

816 

NEWCOL=KOLUMN-ISL«I 

OPRIN 

103 

817 

IF (IP(NEWCOL).EQ.O) GO TO 818 

OPRIN 

104 


IF ( IPINEWCOL) .EQ. IPO) GO TO 818 

OPRIN 

105 


IZ(NEWCOL)=ISS 

OPRIN 

106 


KOUNT=l 

OPRIN 

107 

818 

IF (NEWCOL.LE.l ) GO TO 819 

OPRIN 

108 


NEWC0L=NEWCUL-1 

OPRIN 

109 


GO TO 817 

OPRIN 

110 

C 

LOGICAL STATEMENT FOLLOWS 

OPRIN 

111 

819 

XCD= AND ( C AS t CODE (LINE) ) 

OPRIN 

112 


IF (KXCD.NE.IZQ) KOUNT^l 

OPRIN 

113 


IF (KOUNT.EQ.O) RETURN 

OPRIN 

114 


IF (KXCD.EO. IZO) GO TO 820 

OPRIN 

115 

C 

LOGICAL STATEMENT FOLLOWS 

OPRIN 

116 


KXC0T=IARS(6,KXC0) 

OPRIN 

117 

C 

LOGICAL STATEMENT FOLLOWS 

OPRIN 

118 


KXC0=KXCD-IALS(6,KXC0T) 

OPRIN 

119 
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KXCD=KXC0+10*KXCDT OPRIN 120 

IF (KXCD.GT.O. AND.KXCD.lt. 671 IZ { KXCO)=NEX I T(2 ) OPRIN 121 

C OPRIN 122 

820 WRITE (6,821) IZ OPRIN 123 

C OPRIN 124 

RETURN OPRIN 125 

OPRIN 126 
OPRIN 127 
OPRIN 128 

821 FORMAT ( 1H+,48X,66A1 ) OPRIN 129 

END OPRIN 130 
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TABLE I. - INSTRUCTIONS FOR PUNCHING MAPS PROGRAM DECK CARDS 


[brt»anizaUon of the deck for these cards is shown in fig. 2. 3 


Card number 

Card columns 

Description 

FORTRAN variable 

(as in fig. 2) 



name used in READ 




statements 



Program message card 


1 

All 80 columns available for any message. This message will appear 

HEADNG 


at the top of every page. 




Control card 


2 

1,2 

Locates vertical asterisk cursor column (01 to 66) in 

KOLUMN 



schedule field. Blank eliminates asterisk. 



4 

Blank gives total program listing (using total program 

KEND 



mask in card column 8). One (1) gives total program 
(using total program mask) and summary listing 
(using summary mask in card column 22). 



6 

Blank gives slash (/) and need-date overprint in sched- 

IZAM(l) 



field. One (1) suppresses the overprint. 



7 

Need date symbol. Blank gives f. Nonblank gives 

IZAM(2) 



character punched in this column. 



8 

Total listing mask (matched with columns 51 to 54 on 

MAINL 



ID card). 



10, 11 

Flag column number on ID card (51 to 54) which is to 

MAINL 



be matched with masks. Blank assume 51. 



22 

Summary listing mask (matched with columns 51 to 54 

MASUM 



on ID cards) . 



32,33 

Suppresses printing of hierarchy numbers equal to or 

XNPR 



less than this number (OO to ZZ). 



35 

One (1) gives a new program deck sorted in order. 

KPUNCH 



with date punched on asterisk cards. Blank gives 
no new deck. 



37 

Blank permits printing of summary information be- 

KTI 



tween programs. One (1) suppresses it. 



41 

Blank permits printing of hierarchy error messages 

NOHE 



within text. One (1) suppresses it. 




Calendar heading cards (3,4,5) 


3 

1 to 66 

First line of calendar heading. 

HEADl 

4 

1 to 66 

Second line of calendar heading. 

HEAD2 

5 

1 to 66 

Position of periods (.) which are vertical columns in 

HEADS 



schedule field. (These must be period (.) or blank. 
Periods will supercede any other character in the 
schedule field. ) 




Legend cards (6,7,8) 


6 

1 to 80 

First 80 characters of top line of legend. 

XLGND 

7 

1 to 40 

Last 40 characters of top line of legend. 

XLGND 


41 to 80 

First 40 characters of bottom line of legend. 


8 

1 to 80 

Last 80 characters of bottom line of legend 

XLGND 



ID deck (total number of cards cannot exceed 1000) 


9 

1 

Columns 1 must always have an S, 

ST 


Stoll 

Hierarch number. Must start in column 3. 

GEN 


13 to 42 

Title or description of task. Always starts in 

TITLE 



column 13. 



44 to 49 

Person or organization responsible. 

RSP 


51 to 54 

Flag - for special printout (see table ID. 

CODE 


56 to 58 

Optional status, (Prints in same position on printout 

STAT 



as columns 15, 16. 17 on status card.) 



60 to 65 

Optional comments. (Prints in same position on 

COMENT 



printout as columns 23 to 28 on status card. ) 



43 



TABLE I. - Concluded. INSTRUCTIONS FOR PUNCHING MAPS PROGRAM DECK CARDS 


Card number 

Card columns 

Description 

FORTRAN variable 
name used in READ 
statements 

Asterisk card 


10 

1 

Single asterisk card (* in column 1) must always be 
used at the end of the ID deck. Columns 2 to 6 
must always be blank. Punch date of reproduced 
deck will appear on this card. 

ST 



Schedule cards (Schedule deck) 


11 

1 to 66 
67 to 68 

70 to 78 

Schedule field. Any legal key punch character may 
be used except period (.), asterisk (*), or zero (0). 

Number of column in schedule field in which the need 
date symbol is to be printed (01 to 66). May be 
blank. 

Hierarchy number. Must start in column 70. 

SKED 

ANEED 

GENl, GEN2 

Slash card 

12 

1 

Slash in column 1. Columns 2 to 6 must always be 
blank. This card serves to separate schedule cards 
from schedule updated cards. 

SKED(l) 

Schedule update cards 

13 


Same as schedule cards (cards 11). 


Asterisk card 

14 


Same as card 10. This card must always be used even 
if no schedule or schedule update cards are used. 

SKED(l) 

Status cards (Status deck) 

15 

1 to 9 
15 to 16 

23 to 28 

Hierarchy number. Must start in column 1. 

Status of form +NN where N is a numeral 0 to 9. If 
any other characters or blank (except all 3 blank) 
are used, slash overprint will be suppressed. 
Comments, any legal keypunch character. 

GENl, GEN2‘ 
WKS 

COTl 



Slash card 


16 


Same as card 12. 

GENl 



Status update cards 


17 


Same as status cards (cards 15). | 




Asterisk card 


18 


Same as card 10. This card must be used even if no 
status or status update cards are used. 

GENl 



By -man cards 


19 

1 

8 to 13 

By -man mask (matched with columns 51 to 54 on ID cards. 
Name of res|X)usible person spelled exactly as it appears 
in columns 44 to 49 of ID cards. 

MANL 

XMAN(l) 



Asterisk card 


20 


Same as card 10. This card must be used when running 
multiple program decks even if no by -man cards are 
used. 

MANL 


TABLE n. - FLAG CODE FOR SELECTIVE PRINTOUT 


[P = PRINT; N = NOT PRINT.] 


Flag punch 

(ID card columns 51 to 54) 

Print combinations selected 
by flag punch^ 


Summary 

Total 

By-man 

0 

N 

N 

N 

1 

N 

N 

P 

2 

N 

P 

N 

blank (or 3) 

N 

P 

P 

4 

P 

N 

N 

5 

P 

N 

P 

6 

P 

P 

N 

7 

P 

P 

P 


^Assumes use of built-in mask values: by-man = 1, 
total = 2, summary = 4. 



«»»*— SUN DIAL POWER CONVERSION SYSTEM—**** 


Oi 


HIERARCHY 

* 

70 

70 . 71 

71 

9 9 

PERSON 

NUMBER DESCRIPTION 

. JFMAMJ. JJJJAAAASSSSOOOONNNNODDD. JJJJFFFFMMMMAAAAMMMMJJJ J .JASCND 

. COMMENT . 

RSPBLE 

SUN DIAL I 



* • 

* • 

* . 

* . 




21 SYSTEM ENGINEERING 



* • 

* • 



VINCI 

21B CONCEPT 


.COMPLETED IN 1969 • 


• • 

NURTZ 

21K SYSTEM ANALYSIS 





MAXwEL 

21M SYSTFM APPLICATIONS 



♦ 



FARADY 

21M11 EARTH 



Q.QVBZLLLLLLLL 



TERRA 

21M15 LUNAR 



00 QQ VBLLLLLLLL-- .B— Z 


ARMSTR 

21M17 SPACE 



* • 

-VBLLLL— .LLLB-Z 


VERNE 

41 components 



* • 

* • 



NURTZ 

4 IB FRAME 



PPPP*0DDFFFFFxi + 


.-04* 

HOOKE 

AID WHEEL (PRIMARY) 



* . + 



JOULE 

41D21 HOOP 



* 


. 26 DIA 

SINGER 

41D21D INNER STRUCTURE 



0000FPFFFF.FFFK-X 



LbNZ 

41D21J OUTER STRUCTURE 



• 



EPntRM 

41021J21 RING 



0 * 



BELL 

41021J21B RIM 

# * 


00FFFK. 



LENZ 

41D21J21K FRICTION SURFACE 

* • 


• R.4FF0FX 



LENZ 

41D31 SPOKES, BI-METAL 

# * 


M00PPP0PP«FFFFFFTX. 


• * 

HOOKE 

41D41 •HEARINGS 



WWWFPFPfFiFFFFFFFF.FFTX 



LENZ 

41J WHEEL (SECONDARY) 

« 


* . ♦ 

« 


CARNOT 

41J11 i)ISK 

• 


MWWPPPPPPS.DDOFFFK 

9 

.-0‘J*MATRL 

HOOKE 

4U31 KIM GEAR (FRICTION) 

• 


000FFFFFPS.DDDFFFK 

9 

.+02 

LENZ 

41J41 BEARINGS 

• 


000PFFPPPi.DDDFFFK 



LENZ 

41L COLLECTOR 

• 


• - DDDDFFFFFFX+ 



STEFAN 

♦HIERARCHY ERROR* 







41P15 REFLECTOR 

• 

• 


* . DODDFFFFFFX+ 

* . 



PLANCK 

51 SYSTEM BUILDUP AND CHECKOUT 

• 

• 


* • 

* • 

* 


H.FURD 

51B ASSY AND CALIBRATION 

• 

# 

• 


* , AAAAAAAAAAAICICC ! ‘ 

^9 9 


EDISON 

61 TEST PROGRAM 



* 

* 

• 


NEWTON 


61D VAC. CHAMBER (SOLAR SIMULATOR) 
61F FLICHT TEST 


XYIC 


. JFMAMJ. JJJJAAAASSSSOOOONNNNDODD. JJJJFFFFMMMMAAAAMMMMJJJJ 


TTTT 


TT. 


JA5L1ND. 


HELIOS 

ICARUS 


LEGEND. A=ASSY B=REVIEW C=CHKOUT D=DESIGN 
g=STUOY R=REOMTS S*SPECS T=TEST 


E-EVALUATE F^FAB G^OWGS I=INSTRM K=COMP. L^LAYOUT M=MOO. P=PROCUR 
WsSOW X^OEL Y^INSTL Z=APRVL 1t = CONTRACT +=NEED DATE — =NO ACTIVITY 


Figure 1. - Example MAPS printout 










00 




•***— SUN DIAL POWER CONVERSION SYSTEM — •*»* 




•^'"5r4; 


DESCRIPTION 


SUN DIAL I 


21 SYSTEM ENGINEERING 

218 

CONCEPT 

21K 

SYSTEM ANALYSIS 

21M 

SYSTEM APPLICATIONS 

21M11 

EARTH 

21M15 

LUNAR 

21M17 

SPACE 


41 COMPONENTS 


41B 

AID 


FRAME 

WHEEL (PRIMARY) 

A1D21 \ HOOP 

A10210\ INNER STRUCTURE 

^1D21J \ OUTER STRUCTURE 

AID21J21\ 

A1D21J21b\ 


/ 


A1D21J 21K 

aToTTI SPOKES, bi-metal 


RING 

RIM 

FRICTION SURFACE 


AlDAl 

AIJ 

AIJll 

A1J31 

AlJAl 


AIL 


A1P15 


HEARINGS 

WHEEL (SECONDARY) 

DISK 

RIM GEAR (FRICTION) 
BEARINGS 
COLLECTOR 

♦HIERARCHY ERROR* 
REFLECTOR 




51 SYSTEM BUILDUP AND CHECKOUT 


51B 


ASSY AND CALIBRATION 


61 TEST PROGRAM 


61D 

61F 


VAC. CHAMBER ( SOLAR S IMULATOR ) 
FLIGHT TEST 



70 70 

JFMAMJ. JJJJAAAASSSSOOOONNNNDDDD 


COMPLETED IN 1969 
0(90VBZ 


000 ( 9 - 


00 

00 


PPfPSBODFFFFFX 


B000FFFFFF 
tVi * 

0 * 

00FFFK 


000PPPFPPIFFFFFFTX 


000PFFFFF«FFFFFFFF 

» 

0WWPPPPPP$ 

0W0FFFPFP$ 

000PPPPPPS 


71 

JJJJFFFFMMMMAAAAMMMMJJJ 


71 T| IPERSON 

JJJJ.JASLND.X comment .RSPBLE 


QVBZLLLLLLLL 

— 00 VBLLLLLLLL- 

QQ VBLLLL- 


/ 

♦ / 


FFFK-X 


$FFfFX 


ffTx 

+ 

DDDFFFK 

ODDFFFK 

DDDFFFK 

0DDDFFFFFFX4^ 

DDDDFFFFFFX+ 


AAAAAAAAAAAICICC 


XYIC 


B— Z 
LLLD-Z 


-» 


VINCI 

NURTZ 

MAXWEL 

FARAOY 

TERRA 

ARMSTR 

VERNE 


-OAf 


26 CIA 


TTTT 


TT 


k05*MATRL 

+02 




NURTZ 

HOOKE 

JOULE 

SINGER 

LENZ 

EPDERM 

BELL 

LENZ 

LENZ 

HOOKE 

LENZ 

CARNOT 

HOOKE 

LENZ 

LENZ 

STEFAN 

PLANCK 


H.FORO 


EDISON 


NEWTON 


HELIOS 

ICARUS 


.JFMAMJ. JJJJAAAASSSSOOOONNNNDDDD. JJJJFFFFMMMM AAA AMMMMJJJJ.J A SUND. 


LEGEND. A=ASSY B=REVIEW C=CHKOUT D=OESIGN 
Q=STUDY R^REQMTS S=SPECS T=TEST 


E^EVALUATE F=FAB G=OWGS I=INSTRM K=COMP, L=LAYOUf M=MQD. P=PROCUR 
W=SOW X=DEL Y=INSTL Z=APRVL $=CONTRACT +=NEED DATE — =N0 ACTIVITY 


Figure 3. - Example MAPS printout showing card information locations, 




CARD COLUMNS 


Card number 
per fig. 2 


10 


11 


12 

13 

14 

15 

16 

17 

18 

19 

20 


ccrcoov-'.o 

I2^4567d9( 

Liiiiinii; 

;123A56789C 

222^2222^ 

123A5678': 

3333333333^ 

D123A567d9C 

AAA AAA ^ 
123A56789L 

5555 *5555t 
123A56789C 

666666666? 

123A567B9C 

7777777778 

123A567890 

■ • • 1 

^--SLN OIAL 

PO«ER CL 

viVtRSION S> 

STEM — 




30 



1 





. 7u 


70 • 

, 

n 


71 . 


. JFNAMJ. . 

JJ jaaaasss 

snnao.ri 

DDOf). JJJ JFf 

FFMMMHAAAA 

MMMMJJJJ. 

ASONO. 


A=A^SY 

J=ftbV lEW 

c=CHKOur 

D=ObS IG.N 

E=HVALU/3 

TE F=FAF 

G=DWGS 

I=INSTRM 

t< = CU^.P, 

L=LAyOUT 

M=«OD. 

P=PRnCUR 

0=STU0Y F 

=RE0MT5 

=SPECS T= 

TEST 

H = SO^( 

=DFL Y=I^ 

STL 2=AC 

<VL t=CO.Ml 

RaCT *=M£ 

ED D'.TE 

“ s=NO ACTI 

VI TY 

l'* S 09 

SUN niAL 

I 


TITLE 




S 21 

SYSTLM t 

NGIwEER r 

G 

VINCI 

6 



S 21B 

CCNCFPr 



NURTZ 

6 



S 21K 

SYSTFM A 

NALYSIS 


MAXriEL 

2 



S 

SYSTEM A 

PPL ICATIO 

MS 

FARAOY 

3 



S 21M11 

EARTH 



TERRA 




S 21Mlb 

LUNAR 



ARMSTR 




S 21M17 

SPACF 



VERNE 




S Ai 

CliMPCNEN 

TS 


NUKTZ 




S Ain 

FRAME 



HOUKE 




S AlO 

HFCEL (P 

RIMARY) 


JOULE 




S A1D21 

HCdP 



SINGER 

1 



S A 10210 

INNER ST 

RUCTURE 


LENZ 




S A1021J 

OUThR ST 

RUCTURE 


FPOHRM 




S A1021J21 

R ING 



BELL 




i S A1021J21 

R RIM 



LENZ 

1 



S Ain21J21 

K FRICTION 

SURFACE 


LENZ 




S AlDdl 

SPOKES, P 

I-MtTAL 


HOOKE 




S AlD-^tl 

BEAR INGS 



LENZ 




S AIJ 

WHEEL IS 

ECONDARYl 


CARNOT 




S AlJll 

DISK 



HUUKH 




S A1J31 

RIM gear 

( FRICTIC 

N) 

LFNZ 




S AlJ^l 

BEAR INGS 



LHNZ 




S AIL 

CCLLFCTO 

R 


STEFAN 




S AlPlb 

REFLFCTO 

R 


PLANCK 




S 51 

SYSTEM B 

UILDUP AN 

U CHECKCUr 

H.FORO 




S 51b 

ASSY ANU 

CAL IBRAT 

ION 

EDISON 




51K 

FEAS IBIL 

ITY demon 

stration 

FDISON 




S 61 

TEST PRO 

GRAM 


NEWTON 




S 61D 

VAC. CHAM 

HER (SOLA 

R SIMULATOR 

) HELIOS 




S 61F 

FLIGHT T 

EST 


ICARUS 




f' C 

OMPLETED I 

N 1969 




2 

IB 

U (. 

OOVBZ 





? 

IK 


ccgc-— 


0 0V6ZLL 

LLLLLL 


2 

IMll 


00- 


Ou — 

VRLL 

LLLLLL — a 

— Z 2 

IM15 



'OQ 


OQ 

VOLLLL — L 

LLB-Z 2 

1M17 


p 

PPPtnODFF 

FFFX 



AO A 

IB 







A2 A 

ID 


L 

LLLG 




A 

1D21 



UDDOFF 

FFHF FFFK-X 



A 

1D21D 



LLG 




A 

1D21 J 



C 




A 

1D21J21 




R tFFFX 



AO A 

1D21J21K 


vv rtWP° 

PPPP$ 

X 



A 

1D31 







A1 A 

IJ 



WWWPPP 

PPP$ DDDFFF 

K 


A 

IJll 



hWWPPP 

3ppt DOOFFF 

< 


A 

IJ31 



hWWPPP 

3PPS nnoFFF 

K 


A 

IJAl 




DuDO 

EFFFFFX 


A8 A 

LL 




GDUO 

FFHHFFX 


A8 A 

LP15 







55 5 

1 





lAAAAAAAAA 

UCICC 

5 

LR 






T 

5 

IK 






XYIC T 

TTT 6 

LD 

L 






TT 6 

LF 

r 


UOf 

-FFh 



A 

LD21J21B 




R tFFHFX 



38 A 

1021J21K 


Vnr.WPP 

^PPP SHHFFF 

^FTX 



A 

ID31 


hv\WPP 

3pC'P5HEFFF 

-FFfFFFTX 



A 

LOAl 

51K 

-0^ 

OLLHTC 






2 in 

, 







A 1021 


26 DIA 






Al^il 








^ AIJ31 
/ 

+o: 







^IP 

-0^ 







A1 J1 1 

-0 

MATRL 






11 n ki-li 

» 









1 

J 


Figure 4. - Listing of cards used to produce figures 1, 3, 5, and 6. 


I Control and 
f format cards 


I Identification 
( (ID) deck 


y Schedule deck 


> Status deck 


By-man deck 


49 



«**♦— SUN DIAL POWER CONVERSION SYSTEM — **** 


RESPONSIBILITY BY MAN FOR BELL *** MASK = U51) 


HIERARCHY 

NUMBER 


A1 COMPONENTS 


DESCRIPTION 


70 70 

JFMAMJ.JJJJAAAASSSSOOODNNNNDDDD 


71 71 

JJJJFFFFMMHMAAAAMMMMJJJJ,JASLN0 


COMM. NT 


.PERSON 

.RSPBLE 


NURTZ 


410 WHtLL (PRIMARY) 



* • 

41021 HOOP 



* 

41021J OUTER STRUCTURE 




41D21J21 RING 



g * 

41021J21R RIM 

* • 


00FFFK, 

4I021J21K FRICTION SURFACF 

«• 


* R.SFFfFX 


JOULE 

26 DIA SINGER 
EPDERM 
BELL 
LENZ 
LENZ 


. JFMAMJ. JJJJAAAASSSSUQOONNNNDDDD. JJJJFFFFMHMMAAAAMHMMJJJ J .JA.^CND. 

LEGEND. A=ASSY 5=REV1EW C=CHKOUT D=DESIGN E=EVALUATE F=FA6 G=OWGS I=INSTRM K=COMP. L=LAYOUT M=MOO. P=PROCUR 

0=STUDY R=REQMTS S=SPECS T=TEST W=SOW X=DEL Y=INSTL Z^APRVL S=CONTRACT #=NEED DATE — =NG ACTIVITY 


Figure 5. - By-man excerpt listing for BELL from example MAPS printout 



THIS IS *VAPS-II* (MANAGEMENT ANALYSIS AND PLANNING SYSTEM) 


FOR USER INFORMATION SEE DON PACKE CR GIL RAFFAELI 


CONTROL CARD 


f COLUMNS 


INPUT OPT ICNS 


1,2 30 

A 
6 

7 4 

(A) fl 2(51) 

10,11 51 

22 ^( 51 ) 

32,33 00 

35 1 

37 


LOCATES THE VERTICAL ASTERISK CURSOR COLUMN (01 THRU 66) IN THE SCHEDULE FIELD. BLANK ELIMINATES THE • 
BLANK GIVES TOTAL LISTING. ONEIDGIVES TOTAL LISTING + SUMMARY LISTING. 

BLANK GIVES SLASH!/) AND NEED DATE OVERPRINT IN THE SCHEDULE FIELD. ONE (1) SUPPRESSES IHEM. 

NEED CATE SYMBOL. BLANK GIVES +. NON BLANK GIVES THE ACTUAL CHARACTER PUNCHED ON TFt CONTROL CARD 
TOTAL LISTING MASK(MATCHEO WITH COLUMNS 51 THRU 5<t ON THE ID CARD). BLANK ASSUMES 2. 

ID FLAG COLUMN NUMBER (51-54) WHICH IS TO BE MATCHED WITH MASKS. BLANK ASSUMES 51. 

SUMMARY LISTING MASK (MATCHED WITH COLUMNS 51 THRU 54 ON THE ID CARO). BLANK ASSUMES 4. 

SUPRESSES THE PRINTING OF HIERARCHY NUMBERS THAT ARE EQUAL TO OR LESS THAN THIS NUMBER. 

ONE(l) GIVES NEW PROGRAM OECK SORTED IN ORDER WITH THE DATE PUNCHED ON THE • CARDS. Bt.ANK GIVES NO DECK 
BLANK PERMITS THE PRINTING OF SUMMARY INFORMATION BETWEEN PROGRAMS. ONE 1 1 ) SUPPRESSES IT. 
blank PERMITS THE PRINTING OF HIERARCHY ERROR MESSAGES WITHIN THE TEXT. ONE(l) SUPPRESSES IT. 


(B) i 


■ FRRCR CARDS . 

THIS CARD IN ID DECK IS NOT ID FORMAT! 51K 


NO ID CARD FOR THIS SCHEDULF CARD ( 

NO ID CARiJ FOR THIS STATUS CARD (51K 


FEASIBILITY DEMONSTRATION 


EDISON 


-04 


DELETE 


(0 


THE FOLLOWING ID CAROS HAVE A FLAG IN COLUMNS 51-54 

(21 • 6 M21B • 6 )(21K • 2 )(21M • 3 )(41021 • 1M41021J218» 1 )( 


RESPONSIBLE PERSON LIST 

(0) 2 TITLE VINCI NURTZ MAXWEL FARADY TERRA ARMSTR VERNE HOOKE JOULE SINGER LENZ EPDERM BELL 

' ' ' CARNOT STiTFAN PLANCK H.FORD EDISON NEwTON HELIOS ICARUS 


(E) { 30 VALID ID CARDS REAQ — PROGRAM MAX =1000 

(F) { 1 HIERARCHY ERRORS 


) 

51K ) 

) 


} { 


Figure 6. - Special operator information. 


cn 



Second 

program 

setup 


/ 

/ 

/ 


/ 




Control card 


Program message card 
(second program) 



By-man deck 


Figure 7. - Deck setup for running multiple programs. 
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HIERARCHY 

NUMBER 


SCHEOULE REVIEW 9.30 9-21-70 **NEXT MEEriNG IS 10-5, UPOAFE IS 0U£ 9-29 
DESCRIPTION 


COMPONENTS PROCUREMENT 

BRU RESEARCH PACKAGES 
BRU (GAS BRGS) ,9 UNITS 
BRU-R (ROLLER BRGS) 

BHXU,3 UNITS 
BHXU-A 

PUMPS WITH INVERTERS,? SETS 
GAS MANGTH SYSf2 SYS 
CNGINE CCNTROL SYS, 2 SYS 
rcNTRL PKG.:> • • 


69 . 7J . 71 

JFMAMJJASONO* JEHAHJJASOND. JFHAMJJASONO. 


•OELVRO IN 67. 
X X 


. X.END OF ENOUR. 


(a) Long range schedule. 


72 

JPMAMJ JASOND 


.Pi R:>ON 
V.OMMFNT .RSPBLE 


THIS MEETING 8-06-70 RM 2102 OEB AT 9AH NEXT MEET 8-20-70 SAME TIME, RM. 
DESCRIPTION 


HIERARCHY 

NUMBER 


1970 . 1971 

AAMMJJJJAASSOONNOO. JJFFHHAAMMJJ 


.72. .73. .76. 

123612361236 


RPM NUMBER. 

COMMrNT 

.PERSON 

.RSPBLE 



SUMNER 

HF-SV-1510a1 


G0EL2 

HF-CV-15 16A, 

HTL 

MELNER 



MELNER 



MELNER 

HF-SV-25UA. 


GOtLZ 

HF-CV-2517A. 

HTL 

MELNER 



MELNER 



MELNER 

HF-SV-2509A. 


'•'''■I ’ 

HF-CV-2'’'* * 

COMMENT 

.PERSON 

.RSPBLE 


31 VALVES 


3IA 

31C 

31C11 

31C12 

3 IE 

31G 

31G11 

•»IG12 


SOLNO LF2 TANK PRESS.- 3 UTS 
CHK VALV LF2 TANK PRES.-3UNITS 
SPARE 
SPARE 

SOLENOID LH2 TANK PRES.-3UNITS 
CHK VALV LH2 TANK PRES.-3UNITS 
SPARE 
SPARE 

FLOW S0LEN010-3UNITS 


eetODfFFFFFTT. 

MMKMe^eOFFFFFTTTX 


EEiODFFFFFFTT 

MMEMffBDFFFFFTTTX 


(b) Long range schedule keyed to project part (R PM) number. 


HIERARCHY 

NUMBER 


FaILJRE and CORRECTIVE ACTION REPORT 
DESCRIPTION 


SOLUTION TO PROBLEM 


99 ENGINE COMPONENTS 


99C ELECTRIC HEAT SOURCE 

99C11 EXCESSIVE HT.LOSS TO COOL H20 

99C12 LAMP OVERHEATINC+EARLY FAILURE 

99E TXU 

99E11 rxu NO.l 

99E11C TURBINE WHEEL/SCROLL RUB 

99E13 rxu NO. 2 

DIRT CHIPS IN TURB SfR''' 

T/C CONNECTOR ‘ " 


DEPOSITS ON LAMP REFLECTORS IN VACUUM FROM MATL NOT PASSIVATED 
FAILURE TO CLEAN FINGERPRINTS OFF QUARTZ WITH ALCOHOL 


/<;CROLL CLEARANCE INCREASED 5 HILLS 
WHEEL 

' MNITS NO PROBLEM 

AIUCP 


CLFAN WINFKY 
CLPAN WINTKY 


(c) Failure and corrective action report index. 


TfCHNICAL REPORTS LIST AS OF 7-7-69 


HIERARCHY .PERSON 

number DESCRIPTION TITLE AND DESCRIPTION OF THE REPORT COMM NT .RSPBLE 


11 

NASA TN-0-1315 (8-62) 



lie 

UR 

IIT 

ROBERT Y WONG 
WILLIAM NUSBAUM 

•AIR PERFORMANCE EVALUATION OF A 6.0 INCH MEAN OlAH. SINGLE STAGE 
.TURBINE AT VARIOUS INLET PRESSURES FROM. 16 TO 1.08 ATMOSPEERES 
.AND CORRESPONDING REYNOLDS NUMBERS FROM 2500-50. COO 


15 

NASA TN-0-2621 (2-65) 



♦SC 

SAMUEL M FUTRAL 
‘••'‘«LES A WASSER6AUER 

loFF-OESlGN PERFORMANCE PREDICTION WITH EXPERIMENTAL 
♦'♦•AL INFLOW TURBINF 



(d) Report list. 


SPACE POWER SYSTEMS DIVISION 


HIERARCHY 



CONTRACT . 

TASK 

.CONTRACTOR. 

START . 

. FUNDED 

. 

DATE 

. DATE 

. 

.PERSON 

NUMBER 

description 

• 

NO. 

NO. 

• 

DATE . 

, TO 


DUE 

.RECE 1 VEO 

. COMMA NT 

.RSPbLE 


11 SPS 
llA 

CONTRACTOR REPORTS 



. * 




11A02 

FATIGUE testing DF REF ALLOYS 

.NAS3 6010 . 

L0103.TRW 

06- 30-66. Q3-J1-69. 



“OUkHD 

UA08 

F M PUMP 

.NASA 9622 . 

L0533.GE 

07-18-66. n-31-7C. 



COUCH 

UAIO 

OES FAB SINGLE SHAFT 6R TURB 

.NASA 9627 , 

L1807. AIRESEARCH. 

06-30-66. 07-02-7C. 



DUN'i 

11A12 

Hi AXIAL CREEP T-lll 

.NAS3 9637 . 

L20B7.GE 

03-08-67.11-08-69. 



STONE 

• « A16 

LG OIA T-IU TUBING 
' STAGE POTASSIUM VAP t. 
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Figure 8. - Examples of various MAPS program uses. 
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